LOCAL loFTP,liT1,liT2
LOCAL ARRAY laFolders(1)
#INCLUDE "ftp.h"
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('ftp_service')
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
* loFTP.lMultiOperations=.T.
liT1=SECO()
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
liT2=SECO()
?"Multi operations: Yes", liT2-liT1
loFTP.lMultiOperations=.F.
liT1=SECO()
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
=loFTP.GetFTPFile("any.txt","local.txt")
liT2=SECO()
?"Multi operations: No", liT2-liT1
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg