USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ERRO FTP URGENTE
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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
TÓPICO EDITADO
 
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/03/2010 10:09 hs         
Poxaaa! Ninguem consegue me ajudar?
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página