Das löst aber leider nicht mein Problem!
Das Verbinden zum Server funktioniert ohne Probleme, es wird auch richtig erkannt, ob die Datei auf dem Server existiert oder nicht. Nur der Download/Upload klappt nicht.
VB.NET-Quellcode
- 'Inhalt der Variablen:
- 'Config.FTPServer = www.mar-apps.de
- 'Config.Username = mein_username
- 'Config.Password = mein_passwort
- 'Config.Port = 21
- 'RemoteFile = /Test/Datei.zip
- 'LocalFile = C:\User\Name\Documents\Datei.zip
- Dim WithEvents FTPServer As New FTPLib.FTP
- FTPServer.Connect(Config.FTPServer, Config.Username, Config.Password, Config.Port)
- If FTPServer.FileExists(RemoteFile) = False Then
- MsgBox("Datei wurde nicht auf dem Server gefunden.", MsgBoxStyle.Exclamation)
- Else
- ProgressBar1.Style = ProgressBarStyle.Continuous
- FTPServer.DownloadAsync(RemoteFile, LocalFile)
- MsgBox(FTPServer.IsBusy) 'Gibt immer False aus
- End If
Das Verbinden zum Server funktioniert ohne Probleme, es wird auch richtig erkannt, ob die Datei auf dem Server existiert oder nicht. Nur der Download/Upload klappt nicht.