Ich habe das jetzt mal mit einer HTML-Datei gemacht, weil ich keine Lust hatte, erst eine Word-Datei zu erzeugen und hochzuladen. Funktioniert hier prima. Das ist das erste Mal dass ich etwas mit FTP programmiere, daher sind Optimierungen evtl. möglich.
Code: Alles auswählen
EnableExplicit
Define FtpServer$, FtpUser$, FtpPassWord$
Define FtpDir$, FtpFileName$, LocalDir$, LocalPath$
Define ftp
;-----------------------------------------------------------
; Folgendes individuell anpassen:
FtpServer$ = "xxx"
FtpUser$ = "xxx"
FtpPassWord$ = "xxx"
FtpDir$ = "xxx"
FtpFileName$ = "index.htm"
LocalDir$ = "T:\Desktop\"
;-----------------------------------------------------------
InitNetwork()
ftp = OpenFTP(#PB_Any, FtpServer$, FtpUser$, FtpPassWord$)
If ftp = 0
Debug "Konnte 1. FTP-Verbindung nicht aufbauen."
End
EndIf
If SetFTPDirectory(ftp, FtpDir$) = 0
Debug "FTP-Verzeichniswechsel fehlgeschlagen."
CloseFTP(ftp)
End
EndIf
LocalPath$ = LocalDir$ + FtpFileName$
If ReceiveFTPFile(ftp, FtpFileName$, LocalPath$) = 0
Debug "FTP-Download fehlgeschlagen."
CloseFTP(ftp)
End
EndIf
CloseFTP(ftp)
If RunProgram(LocalPath$, "", "", #PB_Program_Wait) = 0 ; wartet, bis das betr. Programm beendet ist
Debug "Konnte lokale Datei '" + LocalPath$ + "' nicht öffnen."
End
EndIf
ftp = OpenFTP(#PB_Any, FtpServer$, FtpUser$, FtpPassWord$)
If ftp = 0
Debug "Konnte 2. FTP-Verbindung nicht aufbauen."
End
EndIf
If SetFTPDirectory(ftp, FtpDir$) = 0
Debug "FTP-Verzeichniswechsel fehlgeschlagen."
CloseFTP(ftp)
End
EndIf
If SendFTPFile(ftp, LocalPath$, "new_" + FtpFileName$) = 0 ; Nach dem Testen "new_" entfernen!
Debug "FTP-Upload fehlgeschlagen."
CloseFTP(ftp)
End
EndIf
CloseFTP(ftp)
Debug "OK"
Grüße, Nino
