Xbase++

Get the Files Affected by an FTP Sync

Demonstrates the Chilkat Ftp2.GetSyncedFiles method, which reports the relative paths affected by the most recent synchronization. The only argument is a StringTable that receives the paths (uploaded, downloaded, or deleted).

Background: A sync call reports only overall success, but you usually want to know what actually changed — for logging, for triggering follow-up work on just the new files, or to confirm an incremental sync did the minimal transfer. An empty result is meaningful too: it means everything was already up to date. Call it immediately after the sync, before another operation replaces the recorded list.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL nMode
LOCAL oSynced
LOCAL n
LOCAL i
LOCAL cRelPath

nSuccess := 0

//  Demonstrates the Ftp2.GetSyncedFiles method, which reports the relative paths affected by the
//  most recent synchronization operation.  The only argument is a StringTable that receives the
//  paths.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "ftp.example.com"
oFtp:Username := "myFtpLogin"

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
oFtp:Password := "myPassword"

nSuccess := oFtp:Connect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

nSuccess := oFtp:ChangeRemoteDir("public_html")
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Perform a sync.
nMode := 6
nSuccess := oFtp:SyncLocalTree("qa_output/site", nMode)
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Get the list of files that were uploaded, downloaded, or deleted by that sync.
oSynced := CreateObject("Chilkat.StringTable")
oFtp:GetSyncedFiles(oSynced)

n := oSynced:Count
? "Affected files: " + Str(n)

FOR i := 0 TO n - 1
    cRelPath := oSynced:StringAt(i)
    IF (oSynced:LastMethodSuccess == 0)
        ? oSynced:LastErrorText
        oFtp:destroy()
        oSynced:destroy()
        RETURN
    ENDIF

    ? cRelPath
NEXT

nSuccess := oFtp:Disconnect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    oSynced:destroy()
    RETURN
ENDIF

oFtp:destroy()
oSynced:destroy()