ERRO DOWNLOAD FTP

MYLALOPES 02/09/2011 14:23:09
#383239
Boa tarde,

Estou tendo um erro ao fazer download de um ftp via vb.net.
Segue código
If (vDistCaminhoFTP <> [Ô][Ô]) Then
DownloadTotalFTP(vDistCaminhoFTP, vPathDist, vDistLoginFTP, vDistSenhaFTP)
End If
Public Sub DownloadTotalFTP(ByVal ftpPath As String, ByVal localFilePath As String, ByVal DistLoginFTP As String, ByVal DistSenhaFTP As String)

Dim myFtp As New FTPclient(ftpPath, DistLoginFTP, DistSenhaFTP)
For Each file As FTPfileInfo In myFtp.ListDirectoryDetail([Ô]\RET[Ô]).GetFiles
myFtp.Download(file, localFilePath)
Next file

End Sub

Ele está dando erro na abertura do for each.

Outra dúvida, como eu faço para tratar se eu consegui abrir a conexão? Pois se eu passo dados incorretos, ele me da erro na aplicação.
ALTAIR148 02/09/2011 14:37:47
#383242
Resposta escolhida
Olá,

Bom primeiro o erro do For... é o seguinte, repare que a pasta do FTP esta assim [Ô]\RET[Ô] e forma correta seria [Ô]/RET[Ô], o problema é a [Ô]\[Ô] que teria que ser [Ô]/[Ô].

Já o tratamento de erro poderia ser.

try

Dim myFtp As New FTPclient(ftpPath, DistLoginFTP, DistSenhaFTP)
For Each file As FTPfileInfo In myFtp.ListDirectoryDetail([Ô]\RET[Ô]).GetFiles
myFtp.Download(file, localFilePath)
Next file
Catch a As Exception
MsgBox(a.Message)
End Try



Assim ele vai retornar uma mensagem dizendo que algo aconteceu, assim não finalizando sua aplicação.

Até mais.


MYLALOPES 02/09/2011 14:52:22
#383245
Meu você é meu ídolo... rss

To com outro problema... :(
Ele ta dando erro ao criar arquivo local agora.... ¬¬

Public Sub CriaArquivoTexto(ByRef pArquivo As Object, ByRef pConteudo As Object)
Dim fso As New Scripting.FileSystemObject
Dim MyFile As Object

fso = CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object pArquivo. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile = fso.CreateTextFile(pArquivo, True)

[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object MyFile.WriteLine. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile.WriteLine(pConteudo)
[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object MyFile.Close. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile.Close()

[ô]UPGRADE_NOTE: Object MyFile may not be destroyed until it is garbage collected. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6E35BFF6-CD74-4B09-9689-3E1A43DF8969[Ô][ô]
MyFile = Nothing
[ô]UPGRADE_NOTE: Object fso may not be destroyed until it is garbage collected. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6E35BFF6-CD74-4B09-9689-3E1A43DF8969[Ô][ô]
fso = Nothing
End Sub
ALTAIR148 02/09/2011 15:01:50
#383247
limpa a pasta de destino e tenta, só para testar mesmo.
MYLALOPES 02/09/2011 15:06:07
#383248
Limpei tudo mas não funcionou....
RODRIGOFERRO 02/09/2011 15:06:58
#383249
O erro diz [Ô]O Diretorio nao foi encontrado[Ô]

verifique seus parametros !
MYLALOPES 02/09/2011 15:09:51
#383250
Já copiei a string do caminho e colei em executar e abriu o caminho correto.
ALTAIR148 02/09/2011 15:12:13
#383251
Bom, Tem como postar o código?
MYLALOPES 02/09/2011 15:20:57
#383253
Código que cria arquivo:
Public Sub CriaArquivoTexto(ByRef pArquivo As Object, ByRef pConteudo As Object)
Dim fso As New Scripting.FileSystemObject
Dim MyFile As Object

fso = CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object pArquivo. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile = fso.CreateTextFile(pArquivo, True)

[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object MyFile.WriteLine. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile.WriteLine(pConteudo)
[ô]UPGRADE_WARNING: Couldn[ô]t resolve default property of object MyFile.Close. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6A50421D-15FE-4896-8A1B-2EC21E9037B2[Ô][ô]
MyFile.Close()

[ô]UPGRADE_NOTE: Object MyFile may not be destroyed until it is garbage collected. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6E35BFF6-CD74-4B09-9689-3E1A43DF8969[Ô][ô]
MyFile = Nothing
[ô]UPGRADE_NOTE: Object fso may not be destroyed until it is garbage collected. Click for more: [ô]ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=[Ô]6E35BFF6-CD74-4B09-9689-3E1A43DF8969[Ô][ô]
fso = Nothing
End Sub


Ele está dando erro quando chama essa função, por exemplo no trecho abaixo:
GravaLog([Ô]Erro ao ler o Arquivo: [Ô] & vNomeArquivo & [Ô] log de erro criado [Ô])
CriaArquivoTexto(vPathFalha & [Ô]\[Ô] & vNomeArquivo, vConteudoArquivo)
ALTAIR148 02/09/2011 15:25:33
#383254
Coloque assim e veja se vai dar erro:

CriaArquivoTexto([Ô]C:\[Ô] & vNomeArquivo, vConteudoArquivo)

MYLALOPES 02/09/2011 15:59:06
#383258
Altair... tem um duende nesse código... pq eu coloquei um caminho chumbado e o conteudo chumbado funciona... O que pode ser?
Página 1 de 7 [62 registro(s)]
Tópico encerrado , respostas não são mais permitidas