LOCAL loFTP
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('ftp_service')
loFTP.cProxyProtocol="ftp" && Protocol for proxy
loFTP.cProxyHost="proxy_ip" && Proxy Host
loFTP.cProxyport="proxy_port" && Proxy Port
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg