Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  ' lokales Verzeichnis, in dem sich die Datei befindet,
  ' die hochgeladen werden soll
  Dim sLocalPath As String = "c:\ordner\"
  Dim sLocalFile As String = "MeineDatei.mdb"
 
  ' FTP-Server
  Dim sFTPHost As String = "ftp://meine-domain.de/"
 
  ' Benutzername und Kennwort für den Server-Zugriff
  Dim sUserName As String = "MeinBenutzername"
  Dim sPassword As String = "MeinPasswort"
 
  ' 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)
End Sub