Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then
Log(LastException.Message)
Else
lblStatus.Text=" Download beendet"
ToastMessageShow("Die Datenübertragung wurde erfolgreich abgeschlossen.",False)
FTP.Close
End If
End Sub
Sub BtnSend_Click
lblStatus.Text=""
Dim sf As Object = xui.Msgbox2Async("Wollen Sie wirklich die Datenbank nach WD-MyPassport0830-01/MyDiary/MyDiary.dat hochladen?","Frage?", "Ja", "", "Nein", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
lblStatus.Text=" Sende Daten..."
Sleep(1)
FTP.Initialize("FTP", "lotharxxxx.ddns.net", 21, "XXXX", "XXXXX")
BtnSend.Enabled=False
Sleep(1)
FTP.UploadFile(Starter.Verz ,lblDat.text, True, "WD-MyPassport0830-01/MyDiary/MyD.zip")
End If
End Sub