Bei mir funktioniert folgender Code nicht:
Declare return&, text$
Cls
Let return& = FTP("Connect", "","","","21")
Print return&
Let return& = FTP("MakeDir", "profantest")
Print return&
Let return& = FTP("SetDir", "profantest")
Print return&
Let return& = FTP("Upload", "index.html", "index.html")
Print return&
Let return& = FTP("GetFileSize", "index.html")
Print return&
Let return& = FTP("DeleteFile", "index.html")
Print return&
Let return& = FTP("SetDir", "..")
Print return&
Let return& = FTP("DeleteDir","profantest")
Print return&
Let return& = FTP("Disconnect")
Print return&
waitinput
Die 1. FTP()-Zeile ist natürlich vollständig. Kannst du mir sagen, wo die Fehler liegen? Die 1.,2.,3. und 7.,8.,9. Funktionen funktionieren (Rückgabewert jeweils 1), die Übertragung der Datei funkt aber nicht (Rückgabewerte 0;-1;0).
Danke für eine schnelle Antwort!
MfG, Eric Eggert
(www.yatil.de das ultimative, 100% unabhängige Profan²-Magazin!)
|