Xbase++

Sync a Local Tree Up with Preview and Traversal Control

Demonstrates the Chilkat Ftp2.SyncRemoteTree2 method, which uploads a local tree to the current remote directory with extra controls. The arguments are the local root, the upload mode, whether to descend into subdirectories, and whether to run preview-only. In preview mode the results are available via the SyncPreview property.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: The preview flag is what makes this valuable: run it first to see exactly which files would be uploaded — without transferring anything — then run it again for real once the plan looks right. That dry-run step is a strong safeguard before a large or destructive-looking sync. The descend flag lets you limit the operation to the top level, and the mode is the same set of upload rules as SyncRemoteTree.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL nMode
LOCAL nBDescend
LOCAL nBPreviewOnly

nSuccess := 0

//  Demonstrates the Ftp2.SyncRemoteTree2 method, which uploads a local tree to the current remote
//  directory with extra traversal and preview controls.  The 1st argument is the local root, the
//  2nd is the upload mode, the 3rd selects whether to descend into subdirectories, and the 4th
//  selects preview-only (no actual transfers).

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

//    0 = all selected files
//    1 = files missing on the server
//    2 = missing, or newer locally
//    3 = only files that exist remotely and are newer locally
//    4 = missing, or a different size
//    5 = missing, different size, or newer locally

nMode := 5

//  Descend into subdirectories.
nBDescend := 1

//  Preview only: determine what WOULD be uploaded without transferring anything.  The results are
//  available via the SyncPreview property.
nBPreviewOnly := 1

nSuccess := oFtp:SyncRemoteTree2("qa_data/site", nMode, nBDescend, nBPreviewOnly)
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  SyncPreview lists the files that would be uploaded.
? oFtp:SyncPreview

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

oFtp:destroy()