DataFlex

Sync a Local Tree Up to an FTP Server

Demonstrates the Chilkat Ftp2.SyncRemoteTree method, which synchronizes a local tree into the current remote directory. The first argument is the local root and the second is the upload mode, which selects which files are uploaded.

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 upload equivalent of SyncLocalTree — push only the files the mode identifies as new or changed, so a large site or dataset re-deploys quickly by skipping everything already current on the server. Pair it with SyncDeleteRemote when you additionally need to remove server files that no longer exist locally, making the remote an exact mirror.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoFtp
    Integer iMode
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the Ftp2.SyncRemoteTree method, which synchronizes a local tree into the current
    //  remote directory.  The 1st argument is the local root and the 2nd is the upload mode.

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftp.example.com"
    Set ComUsername Of hoFtp To "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.
    Set ComPassword Of hoFtp To "myPassword"

    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComChangeRemoteDir Of hoFtp "public_html" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Upload mode selects which files are transferred:
    //    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

    Move 5 To iMode
    Get ComSyncRemoteTree Of hoFtp "qa_data/site" iMode To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Local tree synced to remote."

    Get ComDisconnect Of hoFtp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure