FTP download und entpacken geht nicht!?
Verfasst: 27.07.2008 02:20
hiho ^^
ich möchte eine gepackte Preference-Datei von meinem FTP-Server laden und entpacken, aber irgendwie gehts nicht..
bringt mir immer #PB_FTP_Error
kennt das einer?
ich möchte eine gepackte Preference-Datei von meinem FTP-Server laden und entpacken, aber irgendwie gehts nicht..
bringt mir immer #PB_FTP_Error
kennt das einer?
Code: Alles auswählen
InitNetwork()
OpenConsole()
PrintN("welche datei soll geladen und entpackt werden?")
datei$=Input()
ftp = OpenFTP(#PB_Any, "************", "*****", "******" )
If CheckFTPConnection(ftp) <> 0
PrintN("FTP geoeffnet")
If ReceiveFTPFile(ftp, "datei$", "datei$")
PrintN("datei geholt")
Else
PrintN("datei nicht geholt")
EndIf
Else
PrintN("FTP konnte nicht aufgerufen werden")
EndIf
If FTPProgress(ftp) =#PB_FTP_Finished
PrintN("fertig geladen")
OpenPack(datei$)
NextPackFile()
ClosePack()
EndIf
If FTPProgress(ftp) =#PB_FTP_Error
PrintN("ein Fehler ist aufgetreten")
EndIf
Input()