ERRO DOWNLOAD FTP
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.
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.
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.
Assim ele vai retornar uma mensagem dizendo que algo aconteceu, assim não finalizando sua aplicação.
Até mais.
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.
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
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
limpa a pasta de destino e tenta, só para testar mesmo.
Limpei tudo mas não funcionou....
O erro diz [Ô]O Diretorio nao foi encontrado[Ô]
verifique seus parametros !
verifique seus parametros !
Já copiei a string do caminho e colei em executar e abriu o caminho correto.
Bom, Tem como postar o código?
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)
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)
Coloque assim e veja se vai dar erro:
CriaArquivoTexto([Ô]C:\[Ô] & vNomeArquivo, vConteudoArquivo)
CriaArquivoTexto([Ô]C:\[Ô] & vNomeArquivo, vConteudoArquivo)
Altair... tem um duende nesse código... pq eu coloquei um caminho chumbado e o conteudo chumbado funciona... O que pode ser?
Tópico encerrado , respostas não são mais permitidas