Class: | FTP_SERVICE |
Type | String |
Direction | In- and Output |
LOCAL loFTP, lcFolder #INCLUDE "ftp.h" SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") loFTP.cStartupFolder="download" =loFTP.GetFTPDirectory(@lcFolder) ? =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg