Sub btnDatenvonPPCaufPC_Click
Dat=Date(Now)
Zeit=Time(Now)
DatZeit =Dat & "-" &Zeit
NeuerDateiName = DatZeit&"-dsmobil.txt" 'Aktuelle Zeit, falls die Datei mehrmals am Tag überspielt wird und ein neuer Dateiname
ftp.New1
ftp.Open("IP-Adresse Server","FTP-User","FTP-Kennwort")
ftp.SetCurrentDirectory("Verzeichnis auf dem FTP wählen")
ftp.PutFile (AppPath & "\Dateiname_Device.txt",NeuerDateiName)
Msgbox("Dateitransfer ok")
FileDel ("Dateiname_Device.txt")
ftp.Close
End Sub