GZipStream, Funfa no localhost + na web naum!? - Grato desde já&#3

[Anubis 0]

Ae Galera, alguem sabe o porque dessa pimboia!?

 

Sem a Parte do GZip funfa de boa + não renomeia o arquivo

com o GZip rola o seguinte erro.

 

System.IO.DirectoryNotFoundException: Não foi possível localizar uma parte do caminho 'C:\Arquivo.doc'. em System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) em System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy) em System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share) em System.IO.File.ReadAllBytes(String path) em UploadFile.BtnUpload_Click(Object sender, EventArgs e) na d:\web\LocalUser\excelrh\www\UploadFile.aspx.vb:linha 44

Protected Sub BtnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnUpload.Click
		Try
			Dim UserName As String = "arquivo"
			Dim SplitFileName() As String

			'Verificamos se tem alguma coisa postada 
			If Trim(AspNetUploadDoc.PostedFile.FileName) = Nothing Then
				Me.LblMensagem.ForeColor = Drawing.Color.Crimson
				Me.LblMensagem.Text = "Selecione um arquivo!"
				Exit Sub
			Else
				'Pegamos as informacoes do arquivo postado 
				Dim infoarquivo As New IO.FileInfo(AspNetUploadDoc.PostedFile.FileName)

				'Capturamos a extensão
				Dim infoarquivoExt As String = Right(infoarquivo.Name, 3)
				'Validamos a extesão conforme o uso que pecisamos
				If infoarquivoExt = "doc" Or infoarquivoExt = "pdf" Then

					'Definimos onde ele será salvo 
					Dim strCaminho As String = Server.MapPath("~/App_Files/")

					'Renomeamos o arquivo para o nome do usuario
					Dim FileName As String = Trim(UserName & "_" & "0")

					'Verificamos se o arquivo já existe
					If System.IO.File.Exists(strCaminho & FileName & "." & infoarquivoExt & ".zip") = True Then
						'Se existe renomeamos dinâmicamente até que não exista, atribuindo um Inteiro antes da extensão
						Do Until System.IO.File.Exists(strCaminho & FileName & "." & infoarquivoExt & ".zip") = False
							SplitFileName = FileName.Split("_")
							FileName = SplitFileName(0) & "_" & CStr(CInt(SplitFileName(1) + 1))
						Loop
					End If

					'Abrimos o Buffer Byte-to-Byte
					Dim arquivoOriginal() As Byte = File.ReadAllBytes(AspNetUploadDoc.PostedFile.FileName)
					'Compactamos e salvamos o dito cujo
					Dim arquivoDestino As FileStream = File.Create(strCaminho & FileName & "." & infoarquivoExt & ".zip")
					zip = New System.IO.Compression.GZipStream(arquivoDestino, CompressionMode.Compress, False)
					zip.Write(arquivoOriginal, 0, arquivoOriginal.Length)
					zip.Close()

					'AspNetUploadDoc.PostedFile.SaveAs(strCaminho & FileName & "." & infoarquivoExt)

					'Mensagem de confirmacao 
					Me.LblMensagem.ForeColor = Drawing.Color.Green
					Me.LblMensagem.Text = "Arquivo enviado com sucesso!"
				Else
					Me.LblMensagem.ForeColor = Drawing.Color.Crimson
					Me.LblMensagem.Text = "Formato de arquivo iválido, aceitos (*.doc) ou (*.pdf)"
					Exit Sub
				End If
			End If

		Catch ex As Exception
			'Se der algum erro, exibimos a mensagem 
			Me.LblMensagem.Text = ex.ToString
		End Try
	End Sub

local funfa geral, renomeia, compacta......

 

Quem pudar me dar uma luz, uma porta.....valeuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu

[quintelab 91]

Existe algo no caminho informado??

'C:\Arquivo.doc'

 

Abraços....

[Anubis 0]

Existe algo no caminho informado??

'C:\Arquivo.doc'

 

Abraços....

Existi sim, é um curriculo....

Como eu havia dito;;;;; localhost funfa muito bem, zipa, renomeia... atribui tudo muito bem!

 

Mas quando eu subo pro site não funfa... se eu remover a parte da compressão, funfa de boa o upload.....

+ não faz o loop pra verificação do nome e sobrepõe o arquivo.doc

 

É possivel ser algo no meu webhost???

 

Abraços....

[quintelab 91]

Acredito que não seja algo nativo do framework, verifique se tem o este componente GZipStream esta instalado em seu server.

 

Abraços...