Lianja

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. Lianja

llSuccess = .F.

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

loFtp = createobject("CkFtp2")

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "myUsername"
loFtp.Password = "myPassword"
loFtp.Port = 21
loFtp.AuthTls = .T.

// Connect and login to the FTP server.
llSuccess = loFtp.Connect()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    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.
llSuccess = loFtp.ChangeRemoteDir("qa")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Indicate that we only want to download files with filenames ending in ".txt"
loFtp.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.
lnMode = 1

// Download all files matching "*.txt" from the current remote ftp directory.
// The files are downloaded into c:/temp/qa_output
llSuccess = loFtp.SyncLocalDir("c:/temp/qa_output",lnMode)
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Perhaps we wish to delete the files we just downloaded from the server..
loSt = createobject("CkStringTable")
loFtp.GetSyncedFiles(loSt)

lnNumFiles = loSt.Count
i = 0

do while i < lnNumFiles
    lcRemoteFilename = loSt.StringAt(i)
    ? "Deleting " + lcRemoteFilename + " from the FTP server"
    llSuccess = loFtp.DeleteRemoteFile(lcRemoteFilename)
    if (llSuccess <> .T.) then
        ? loFtp.LastErrorText
        release loFtp
        release loSt
        return
    endif

    i = i + 1
enddo

llSuccess = loFtp.Disconnect()


release loFtp
release loSt