Protected Sub cmdUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdUpload.Click 
    'On button Click call the function  
    'and Pass Parameter Values 
        'Display Message on Success 
        'Server.MapPath("~/") & "ftp.txt" 
        uploadFileUsingFTP("ftp://ip_address/cartella/cartella/file.txt", "http://www.sito.it/file.txt") 
    lblMsg.Text = "File Uploaded Successfully :)" 
  End Sub 
 
  Public Sub uploadFileUsingFTP(ByVal CompleteFTPPath As String, ByVal CompleteLocalPath As String, Optional ByVal UName As String = "", Optional ByVal PWD As String = "") 
    'Create a FTP Request Object and Specfiy a Complete Path  
    Dim reqObj As FtpWebRequest = WebRequest.Create(CompleteFTPPath) 
    'Call A FileUpload Method of FTP Request Object 
    reqObj.Method = WebRequestMethods.Ftp.UploadFile 
    'If you want to access Resourse Protected You need to give User Name and PWD 
        reqObj.Credentials = New NetworkCredential("user", "pwd") 
    'FileStream object read file from Local Drive 
    Dim streamObj As FileStream = File.OpenRead(CompleteLocalPath) 
    'Store File in Buffer 
    Dim buffer(streamObj.Length) As Byte 
    'Read File from Buffer 
    streamObj.Read(buffer, 0, buffer.Length) 
    'Close FileStream Object Set its Value to nothing 
    streamObj.Close() 
    streamObj = Nothing 
    'Upload File to ftp://localHost/ set its object to nothing 
    reqObj.GetRequestStream().Write(buffer, 0, buffer.Length) 
    reqObj = Nothing 
  End Sub