Zielpfad = \\Ornder\Ornder1\
 
' lokales Verzeichnis, in dem sich die Datei befindet,
        ' die hochgeladen werden soll
        Dim sLocalPath As String = Zielpfad
        Dim sLocalFile As String = "Bild.jpeg"
 
        ' FTP-Server
        Dim sFTPHost As String = Speicherort & Speicherdatum
 
        ' Benutzername und Kennwort für den Server-Zugriff
        Dim sUserName As String = "Benutzername"
        Dim sPassword As String = "123456"
 
        ' Datei wie UploadFile-Methode hochladen
        My.Computer.Network.UploadFile(sLocalPath & sLocalFile, _
          sFTPHost & Time & "_" & sLocalFile, _
         sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)