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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Transmitir dados via FTP
Cughele
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/09/2006 00:11 hs         
Bom Galera alguem sabe me diser como faço para criar um programinha onde eu informe uma unica vez o endereço ftp "ftp.meusite.com.br" "MeuLogin" "MinhaSenha" e os arquivos que eu quero enviar para o site e ele fique gravado e assim que o programa for aberto ele ja faz a transferencia dos arquivos (no caso um MDB e um XLS) para meu ftp. e se fecha automaticamente após concluir a operação.
Pois ele será executado via "agendador de tarefas" diariamente as05:00 da matina...
 

Dinheiro não traz felicidade.
Me de o seu e seja feliz!
   
Claudio EngeSys
PARANAGUA
PR - BRASIL
ENUNCIADA !
Postada em 13/09/2006 08:00 hs            
Na sessão de troca de arquivo aqui do site tem alguns projetos sobre ftp.
Dá uma olhada se um dos 3 te serve.
 
 

Claudio Alves.
   
Jonitas
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/11/2008 00:03 hs            
Tem um programa q já faz isso é free e muito bom chama-se cobian.
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/03/2010 09:37 hs         
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 "192.1.1.1", "usuario", "senha"
            If FTP1.Conectado Then
                TodosEnviados = True
                QtdeErros = 0
                    Do While arquivos <> ""
                            Label1.Caption = "Abrindo pasta teste..."
                            Label1.Refresh
                            FTP1.AbrirDiretorio "/teste/pasta1/"
                            Label1.Caption = "Aguarde... Enviando arquivo " & arquivos
                            Label1.Refresh
                            FTP1.Enviar "c:     este", arquivos
                            Label1.Caption = "Arquivos enviados com sucesso!"
                            Label1.Caption = ""
                            If FTP1.ErroDescricao = "" Then
                                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 = ""
                                'MsgBox "Erro ao enviar o arquivo " & arquivos & ". Tente novamente.", vbCritical, "ERRO"
                                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
   
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