Xbase++

FTP Non-Recursive Sync Directory (Download)

See more FTP Examples

Download files from the server that have filenames matchhing a pattern, and don't yet exist in a local directory. Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL nMode
LOCAL oSt
LOCAL nNumFiles
LOCAL i
LOCAL cRemoteFilename

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "ftp.example.com"
oFtp:Username := "myUsername"
oFtp:Password := "myPassword"
oFtp:Port := 21
oFtp:AuthTls := 1

//  Connect and login to the FTP server.
nSuccess := oFtp:Connect()
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
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.
nSuccess := oFtp:ChangeRemoteDir("qa")
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Indicate that we only want to download files with filenames ending in ".txt"
oFtp:SyncMustMatch := "*.txt"

//  Modes for synchronization are as follows:
//  mode=0: Download all files
//  mode=1: Download all files that do not exist on the local filesystem.
//  mode=2: Download newer or non-existant files.
//  mode=3: Download only newer files. If a file does not already exist on the local filesystem, it is not downloaded from the server.
//  mode=5: Download only missing files or files with size differences.
//  mode=6: Same as mode 5, but also download newer files.
//  mode=99: Do not download files, but instead delete remote files that do not exist locally.
nMode := 1

//  Download all files matching "*.txt" from the current remote ftp directory.
//  The files are downloaded into c:/temp/qa_output
nSuccess := oFtp:SyncLocalDir("c:/temp/qa_output", nMode)
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Perhaps we wish to delete the files we just downloaded from the server..
oSt := CreateObject("Chilkat.StringTable")
oFtp:GetSyncedFiles(oSt)

nNumFiles := oSt:Count
i := 0

DO WHILE i < nNumFiles
    cRemoteFilename := oSt:StringAt(i)
    ? "Deleting " + cRemoteFilename + " from the FTP server"
    nSuccess := oFtp:DeleteRemoteFile(cRemoteFilename)
    IF (nSuccess != 1)
        ? oFtp:LastErrorText
        oFtp:destroy()
        oSt:destroy()
        RETURN
    ENDIF

    i := i + 1
ENDDO

nSuccess := oFtp:Disconnect()

oFtp:destroy()
oSt:destroy()