FTP-Upload mit VB.NET 2005 Einfache Möglichkeit zum Uploaden von Dateien per FTP mit Benutzername und Passwort
Autor:   Stefan Remberg	Bewertung:	Views:  30.472
www.mdb-tools.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgendem Beispiel möchte ich eine einfache Möglichkeit aufzeigen, um mit VB.NET 2005 Dateien per FTP auf einen FTP-Server hochzuladen.

Zusätzlich wird die Datei beim Upload umbenannt und es wird jeweils der Wochentag (als Zahl) im Dateiname mit angegeben.
Beispiel: "MeineDatei.mdb" wird bei einem Upload am Dienstag mit dem Dateiname "2_MeineDatei.mdb" hochgeladen.

Auf diese Weise ist es möglich, eine 7 Tage Sicherung zu realisieren, wenn die Anwendung täglich mit dem Taskmanager startet.

Hier nun der Code für den Upload:

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.