' FTP-Server
                        Dim sFTPHost As String = _
                          "ftp://666.148.5.169/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("C:\test\")
 
                        'Schleife durchläuft jedes File mit angegebener 
                        ' Extension in angegeben pfad 
                        For Each file As IO.FileInfo In di5.GetFiles("*.txt")
 
                            'für jede Datei einen Upload machen, in file.Name 
                            ' steht der aktuelle 
                            ' Dateiname
                            My.Computer.Network.UploadFile(file.FullName, _
                              sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek _
                              & "_" & file.Name, _
                              sUserName, sPassword, True, 500, _
                              FileIO.UICancelOption.DoNothing)
 
                        Next

Auf der Suche nach einem Hilfreichen Tutorial? Dann schau vorbei, auf http://tuts4you.de

Beitrag wurde zuletzt am 25.02.09 um 16:08:21 editiert.