Postada em 05/03/2010 09:51 hs
Bom dia galera! Preciso da ajuda de voces urgente!!!Estou tentando transferir arquivos via FTP, o código esta correto, pois se eu tento tranferir um outro arquivo para um outro lugar eu consigo. Porem, eu não estou conseguindo:
Function ConectareEnviar()
Dim arquivos As String
Dim TodosEnviados As Boolean
Dim QtdeErros As Long
Dim vFso As FileSystemObject
Set vFso = New FileSystemObject
Me.MousePointer = vbHourglass
Label1.Caption = "Conectando ao site FTP..."
Label1.Refresh arquivos = Dir("C: este" & "*.txt", vbArchive) If arquivos <> "" Then FTP1.Conectar "187.9.42.155", "usuario", "senha" 'Aqui demora um pouco para conectar
If FTP1.Conectado Then
TodosEnviados = True
QtdeErros = 0
Do While arquivos <> ""
Label1.Caption = "Abrindo pasta teste..."
Label1.Refresh FTP1.AbrirDiretorio "/"
Label1.Caption = "Aguarde... Enviando arquivo " & arquivos
Label1.Refresh
FTP1.Enviar "c: este", arquivos ' O problema esta aqui... Demora bastante...
Label1.Caption = "Arquivos enviados com sucesso!"
Label1.Caption = ""
If FTP1.ErroDescricao = "" Then ' E logo em seguida da erro aki!! Erro 12002.
If vFso.FileExists("c: esteprecessados" & "" & arquivos) Then
vFso.DeleteFile ("c: esteprecessados" & "" & arquivos), True
End If
vFso.MoveFile ("c: este" & "" & arquivos), ("c: esteprecessados" & "" & arquivos)
Else
Label1.Caption = "Erro ao enviar o arquivo " & arquivos & ". Tente novamente."
Label1.Caption = ""
FTP1.Desconectar
Me.MousePointer = vbArrow
TodosEnviados = False
QtdeErros = QtdeErros + 1
Exit Function
End If
arquivos = Dir
Loop
End If
Label1.Caption = "Não haviam arquivos para serem transferidos."
Label1.Refresh
Label1.Caption = ""
End If
Me.MousePointer = vbArrow
End Function
Alguem sabe me dizer que erro é esse? O pq de eu nao estar conseguindo fazer tranferencias? Obrigada Juliana
|
