Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = False
        Dim pathServer As String = ""
        Dim nomeFile As String = ""
        Try
            pathServer = "ftp://ftp.dominio.it/cartellaprincipale.it/"
            nomeFile = "UploadFile.txt"
            Dim myStringWebResource As String = pathServer & nomeFile
            Dim myWebClient As New WebClient()
            myWebClient.Credentials = New NetworkCredential("UserName", "Password")
            myWebClient.UploadFile(myStringWebResource, FileLocale)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
        End Try