UPLOAD FTP

  Sub Upload()

        Dim args(3) As String

        args(0) = [Ô]ftp://ftp.ftp.com/[Ô]

        args(1) = arquivotxt.text

        args(2) = [Ô]usuarioftp[Ô]

        args(3) = [Ô]senhaftp[Ô]



        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()
    End Sub