Download and Delete Matching Files

Visual FoxPro example showing how to FTP download files matching a wildcarded file pattern and delete them from the FTP server.

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
LOCAL i
LOCAL lcFname
LOCAL n

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 = "****"
loFtp.Password = "****"

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

*  Note: It may be tempting to call MGetFiles(pattern,localDir)
*  followed by a call to DeleteMatching(pattern), however,
*  if new files are uploaded to the FTP server while MGetFiles
*  is running, those files will be deleted by DeleteMatching.

*  Instead, it's best to set the ListPattern and then iterate
*  over each file...

*  Set the ListPattern = "*.xml" to match all XML files.
loFtp.ListPattern = "*.xml"

*  NumFilesAndDirs contains the number of files and sub-directories
*  matching the ListPattern in the current remote directory.
*  The first time it is accessed after changing ListPattern,
*  or after calling ChangeRemoteDir, a snapshot of the directory
*  listing is fetched and saved in memory. During this loop,
*  the value of NumFilesAndDirs will not change.

n = loFtp.NumFilesAndDirs
IF (n < 0) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

IF (n > 0) THEN
    FOR i = 0 TO n - 1

        lcFname = loFtp.GetFilename(i)
        ? lcFname

        *  Download the file into the current working directory.
        lnSuccess = loFtp.GetFile(lcFname,lcFname)
        IF (lnSuccess <> 1) THEN
            =MESSAGEBOX(loFtp.LastErrorText)
            QUIT
        ENDIF

        *  Now delete the file.
        lnSuccess = loFtp.DeleteRemoteFile(lcFname)
        IF (lnSuccess <> 1) THEN
            =MESSAGEBOX(loFtp.LastErrorText)
            QUIT
        ENDIF

    NEXT
ENDIF

loFtp.Disconnect()