Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lnMode
LOCAL loSt
LOCAL lnNumFiles
LOCAL i
LOCAL lcRemoteFilename

lnSuccess = 0

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

loFtp = CreateObject('Chilkat.Ftp2')

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

* Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
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("qa")
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
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
lnSuccess = loFtp.SyncLocalDir("c:/temp/qa_output",lnMode)
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Perhaps we wish to delete the files we just downloaded from the server..
loSt = CreateObject('Chilkat.StringTable')
loFtp.GetSyncedFiles(loSt)

lnNumFiles = loSt.Count
i = 0

DO WHILE i < lnNumFiles
    lcRemoteFilename = loSt.StringAt(i)
    ? "Deleting " + lcRemoteFilename + " from the FTP server"
    lnSuccess = loFtp.DeleteRemoteFile(lcRemoteFilename)
    IF (lnSuccess <> 1) THEN
        ? loFtp.LastErrorText
        RELEASE loFtp
        RELEASE loSt
        CANCEL
    ENDIF

    i = i + 1
ENDDO

lnSuccess = loFtp.Disconnect()

RELEASE loFtp
RELEASE loSt