...
If FTPdomain.Length > 0 Then
FTPt1.Initialize("FTPt1", FTPdomain, 21, FTPuser, FTPpass)
FTPt1.PassiveMode = True
ProgressDialogShow("Bitte warten, die Verbindung zum Server wird geprüft...")
FTPt1.DownloadFile("/" & FTPpfad & "/testdatei.txt", False, MyDir, "testdatei.txt")
end if
'
einstellungen_speichern
... usw
Sub FTPt1_DownloadCompleted (ServerPath As String, Success As Boolean)
ProgressDialogHide
Log(ServerPath)
FTPt1.CloseNow 'FTP sofort schliessen
If Success = True Then
MsgboxAsync("Die Daten sind korrekt.","Hinweis")
Else
MsgboxAsync("Datei nicht gefunden."Problem [8590]")
End If
'
End Sub