Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

jaime_paixao

Transferência de Ficheiros via FTP + vb2008

Mensagens Recomendadas

jaime_paixao

Boa noite pessoal,

estou aqui a desenvolver uma aplicação simples para actualização de websites, e gostaria de uma ajudinha. Gostaria de saber se há alguma maneira para realizar a transferência de ficheiros via FTP para o servidor remoto através da minha aplicação.

Muito Obrigada,

cumps

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
fed07

No vb6 sei que tens o componente inet.

Caso venhas a usar digo-te já que depois de cada instrução do inet convém usar esta expressão:

Do While Inet1.StillExecuting

    DoEvents  'espera que acabe o ultimo comando execute

Loop

faz exactamente o que diz no comentário  :cheesygrin:

se não usares isto é bem provável que de erros ao longo da utilização

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
fed07

O componente inet está disponível no vb6.

Permite que gerencies um servidor FTP, podes configurar a ligação ao servidor FTP com ele, fazer download e upload através dele, eliminar ficheiros e pastas, assim como criar pastas.


Por exemplo, para criar uma pasta:

Private Sub cmdcriarpasta_Click()

  Dim pasta As String

  'escolhe nome da pasta para criar

  pasta = InputBox("Escreva o nome da pasta que deseja criar", "Criar Pasta")

 

  Inet1.Execute , "mkdir " & pasta 'cria a pasta na raiz

  Do While Inet1.StillExecuting

      DoEvents

  Loop

End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Pwyll

Ligar ao ftp server e enviar o ficheiro.... atencao aos todos  ;)

    Public Function SendFile(ByVal pOrigem As String, ByVal pDestino As String, ByVal pUsername As String, ByVal pPassword As String) As Boolean
        ' todo: implement error handling
        ' todo: improve the params

        Try
            Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(pDestino), System.Net.FtpWebRequest)
            request.Credentials = New System.Net.NetworkCredential(pUsername, pPassword)
            request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

            ' read file
            Dim file() As Byte = System.IO.File.ReadAllBytes(pOrigem)

            ' upload file
            Dim stream As System.IO.Stream = request.GetRequestStream()

            stream.Write(file, 0, file.Length)
            stream.Close()
            stream.Dispose()
        Catch ex As Exception
            Return False
        End Try

        Return True
    End Function

Chamar a funcao....

SendFile("D:\Testes\test.txt", "ftp://ftp.server.com/test.txt", "user123", "pw123456")

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.