Class: | FTP_SERVICE |
Type | Number |
Direction | In- and Output |
LOCAL loFTP, liState,liResult #INCLUDE "ftp.h" SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") loFTP.nFlags=BITOR(loFTP,INTERNET_FLAG_FROM_CACHE) =loFTP.GetFTPFile("any.txt","local.txt") =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg