Dim ftpserver As String = "http://www.adresse"
        Dim ftpuser As String = "user"
        Dim ftppass As String = "passwort"
 
        Dim sLocalPath As String = "C:\Foto.jpg"
 
        Dim sFTPHost As String = ftpserver & "/dateien"
 
        My.Computer.Network.UploadFile(sLocalPath, sFTPHost & "Foto.jpg", _
          ftpuser, ftppass, True, 5000, FileIO.UICancelOption.DoNothing)