quinta-feira, 4 de fevereiro de 2016

Fazer download de arquivo via FTP com VB.Net

Imports System.Net.Mail
Imports System.Net
Imports System.IO

Public Sub RecebeFTP(ByVal Arquivo As String, ByVal Usuario As String, ByVal Senha As String, ByVal Destino As String)
     Dim URI As String = "ftp://xxx.xxx.xxx.xxx/" & Arquivo
     Dim ftp As System.Net.FtpWebRequest = CType(FtpWebRequest.Create(URI), FtpWebRequest)
     ftp.Credentials = New System.Net.NetworkCredential(Usuario, Senha)
     ftp.KeepAlive = False
     ftp.UseBinary = True
     ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
     Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)
         Using responseStream As IO.Stream = response.GetResponseStream
             Using fs As New IO.FileStream(Arquivo, IO.FileMode.Create)
                 Dim buffer(2047) As Byte
                 Dim read As Integer = 0
                 Do
                     read = responseStream.Read(buffer, 0, buffer.Length)
                     fs.Write(buffer, 0, read)
 
                Loop Until read = 0 '
                 responseStream.Close()
                 fs.Flush()
                 fs.Close()
 
            End Using
             responseStream.Close()
 
            End Using
             response.Close()
 
        End Using
End Sub

Um comentário: