XProfan

Cls
print FTP("Connect","freeftp","freeftp","ftp.xprofan.com","21")
print FTP("SetBinary",1)' muß hier nicht sein...
print FTP("GetFileSize","kurt.txt"), "Byte"
print FTP("Download","kurt.txt","C://Users/uweskarke/Desktop/kurt.txt")
waitinput
print FTP("Disconnect")
end

Cls
print FTP("Connect","freeftp","freeftp","ftp.xprofan.com","21")
print FTP("SetBinary",1)' muß hier nicht sein...
print FTP("GetFileSize","kurt.txt"), "Byte"
Var Ziel$ = winpaths() + "\\kurt.txt"
print "Ziel:",Ziel$
print FTP("Download","kurt.txt",Ziel$)
print "FTP-Meldung:",$FTPStatus'Statusmeldung von FTP - immer interessant.
waitinput
print FTP("Disconnect")
End

Proc WinPaths

    Declare Nummer%, Out$
    Nummer% = 16'Desktop des akt. Benutzers
    DEF @GSFP(4) ! "Shell32","SHGetSpecialFolderPathA"
    Out$ = Space$(255)
    GSFP(0,ADDR(Out$),Nummer%,0)
    Return @Trim$(Out$)

EndProc

Cls
var ziel$ = getdir$("@")+"\kurt.txt"
print ziel$
print FTP("Connect","freeftp","freeftp","ftp.xprofan.com","21")," FTP-Meldung:",$FTPStatus
print
print FTP("SetBinary",1), " FTP-Meldung:",$FTPStatus
print
print FTP("GetFileSize","kurt.txt"), " FTP-Meldung:",$FTPStatus
print
print FTP("Download","kurt.txt",ziel$), " FTP-Meldung:",$FTPStatus
print
waitinput
print FTP("Disconnect"), " FTP-Meldung:",$FTPStatus
waitinput
End