' lokales Verzeichnis, in dem sich die Datei befindet,
                        ' die hochgeladen werden soll
                        Dim sLocalPath As String = "C:\test\"
 
 
                        ' FTP-Server
                        Dim sFTPHost As String = _
                          "ftp://147.999.9.145/Blanks/Out/"
 
                        ' Benutzername und Kennwort für den Server-Zugriff
                        Dim sUserName As String = "name"
                        Dim sPassword As String = "passwort"
 
 
 
                        Dim di5 As New IO.DirectoryInfo(sLocalPath)
 
                        'Schleife durchläuft jedes File mit angegebener 
                        ' Extension in angegeben pfad 
                        For Each file As IO.FileInfo In di5.GetFiles(oldExt)
 
                            'für jede Datei einen Upload machen, in file.Name 
                            ' steht der aktuelle 
                            ' Dateiname
                            My.Computer.Network.UploadFile(sLocalPath & _
                              file.Name, _
                              sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek _
                              & "_" & file.Name, _
                              sUserName, sPassword, True, 500, _
                              FileIO.UICancelOption.DoNothing)
 
                        Next