Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
jaime_paixao

Transferência de Ficheiros via FTP + vb2008

Recommended Posts

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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")

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.