vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE   |   VB-Versionen: VB.NET29.12.06
FTP-Upload mit VB.NET 2005

Einfache Möglichkeit zum Uploaden von Dateien per FTP mit Benutzername und Passwort

Autor:   Stefan RembergBewertung:     [ Jetzt bewerten ]Views:  30.429 
www.mdb-tools.deSystem:  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