Sync a Local Tree Up with Preview and Traversal Control

See more FTP Examples

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.

integer li_rc
integer li_Success
oleobject loo_Ftp
integer li_Mode
integer li_BDescend
integer li_BPreviewOnly

li_Success = 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).

loo_Ftp = create oleobject
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ftp.Hostname = "ftp.example.com"
loo_Ftp.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.
loo_Ftp.Password = "myPassword"

li_Success = loo_Ftp.Connect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

li_Success = loo_Ftp.ChangeRemoteDir("public_html")
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

//    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

li_Mode = 5

//  Descend into subdirectories.
li_BDescend = 1

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

li_Success = loo_Ftp.SyncRemoteTree2("qa_data/site",li_Mode,li_BDescend,li_BPreviewOnly)
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

//  SyncPreview lists the files that would be uploaded.
Write-Debug loo_Ftp.SyncPreview

li_Success = loo_Ftp.Disconnect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if



destroy loo_Ftp