LOCAL loFTP,lcPom
#INCLUDE "ftp.h"
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('ftp_service')
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
=loFTP.SetCachingMethod(INTERNET_FLAG_MUST_CACHE_REQUEST+INTERNET_FLAG_RELOAD)
=loFTP.GetFTPFile("any.txt","local.txt")
?loFTP.GetCachingMethod()
loFTP.ResetCachingMethod()
?loFTP.GetCachingMethod()
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg