Sub Uploade()
' lokales Verzeichnis, in dem sich die Datei befindet,
' die hochgeladen werden soll
Dim sLocalPath AsString = ""
Dim sLocalFile AsString = System.Environment.MachineName
' FTP-Server
Dim sFTPHost AsString = "ftp://"
' Benutzername und Kennwort fr den Server-Zugriff
Dim sUserName AsString = "User"
Dim sPassword AsString = "Passwort"
' Datei wie UploadFile-Methode hochladen
My.Computer.Network.UploadFile(sLocalPath & sLocalFile, _
sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, _
sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)
EndSub