Imports System.Net
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim uri As New Uri("ftp://ftp.servidor.com/carpeta/hola.txt")
        Dim request As FtpWebRequest = DirectCast(WebRequest.Create(uri), FtpWebRequest)
 
        request.Method = WebRequestMethods.Ftp.UploadFile
        request.Proxy = Nothing
        request.UseBinary = True
        request.UsePassive = False
        request.Credentials = New NetworkCredential("usuario", "password")
 
        Dim vCadena As String = "Esto es una prueba de FTP"
 
        Dim encoding As New System.Text.UTF8Encoding()
 
        Dim fileContents() As Byte = encoding.GetBytes(vCadena)
        request.ContentLength = fileContents.Length
 
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(fileContents, 0, fileContents.Length)
        requestStream.Close()
 
        Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
        response.Close()
    End Sub
End Class