COMO CRIAR UM GERENCIADOR FTP?

Imports System.Net

Imports System.IO

 

Dim args(3) As String

args(0) = [Ô]ftp://ftp.provedor.com/pasta/arquivo.gif[Ô]

args(1) = [Ô]d:\Meus documentos\arquivo.gif[Ô]

args(2) = [Ô]Usuário do FTP[Ô]

args(3) = [Ô]Senha do FTP[Ô]

 

Dim target As Uri = New Uri(args(0))

Dim fileName As String = args(1)

Dim request As FtpWebRequest = CType(FtpWebRequest.Create(target), FtpWebRequest)

request.Method = WebRequestMethods.Ftp.UploadFile

request.UseBinary = True

Dim FS As New FileStream(args(1), FileMode.Open)

Dim br As BinaryReader = New BinaryReader(FS)

Dim buffer() As Byte = br.ReadBytes(CInt(FS.Length))

br.Close()

FS.Close()

request.ContentLength = buffer.Length

request.Credentials = New NetworkCredential(args(2), args(3))

Dim requestStream As Stream = request.GetRequestStream

requestStream.Write(buffer, 0, buffer.Length)

requestStream.Close()

Dim response As FtpWebResponse = CType(request.GetResponse, FtpWebResponse)

response.Close()