Download Multiple Files Matching Pattern

The MGetFiles method can be called to download all files matching a wildcarded filename pattern.

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
LOCAL lnNumFilesDownloaded

loFtp = CreateObject('Chilkat.Ftp2')

* Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Hostname = "www.example-code.com"
loFtp.Username = "example-code.com"
loFtp.Password = "*myPassword1*"

* Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

* Change to the remote directory where the files are located.
* This step is only necessary if the files are not in the root directory
* of the FTP account.
lnSuccess = loFtp.ChangeRemoteDir("vcpp")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

* Download all files with filenames matching "ftp_*.asp"
* The files are downloaded into c:/temp

lnNumFilesDownloaded = loFtp.MGetFiles("ftp_*.asp","c:/temp")
IF (lnNumFilesDownloaded < 0) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Disconnect()

? STR(lnNumFilesDownloaded) + " Files Downloaded!"