LOCAL lnFileSize,lcPath,loFTP
#INCLUDE "ftp.h"
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('_myftp')
IF loFTP.OpenInternet("anonymous", "gorila@gorila.cz","192.168.2.21", "21")
=loFTP.ChangeFTPDirectory("Kubuntu704")
* if a method GetFileSize() failed and error message is "550 SIZE not allowed in ASCII mode"
* you must uncomment one from next two rows (directly binary mode)
*=loFTP.FtpCommand("TYPE I", FTP_TRANSFER_TYPE_BINARY,0,.NULL.)
*=loFTP.FtpCommand("BINARY", FTP_TRANSFER_TYPE_BINARY,0,.NULL.)
IF loFTP.GetFileSize("test.rar",@lnFileSize)
?lnFileSize
ENDIF
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg
DEFINE CLASS _myFTP AS FTP_SERVICE
PROCEDURE BeforeGetFileSize(lcFile,lnSize)
?PROGRAM(16)
?CHR(9),lcFile,lnSize
ENDPROC
PROCEDURE AfterGetFileSize(lcFile,lnSize,llRet)
?PROGRAM(16)
?CHR(9),lcFile,lnSize,llRet
ENDPROC
ENDDEFINE