DataFlex

SFTP Upload - Synchronize Directory Tree

See more SFTP Examples

Demonstrates how to upload files to synchronize a local directory tree with a remote directory tree. The SyncTreeUpload method recursively descends a local directory tree and uploads files based on existence, last-mod date/time and/or size differences. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSftp
    String sRemoteDir
    String sLocalDir
    Integer iMode
    Boolean iRecursive
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatSFtp)) To hoSftp
    If (Not(IsComObjectCreated(hoSftp))) Begin
        Send CreateComObject of hoSftp
    End

    Get ComConnect Of hoSftp "my-ssh-server.com" 22 To iSuccess
    If (iSuccess = True) Begin
        Get ComAuthenticatePw Of hoSftp "mySshLogin" "mySshPassword" To iSuccess
    End

    If (iSuccess = True) Begin
        Get ComInitializeSftp Of hoSftp To iSuccess
    End

    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSftp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Synchronize (by uploading) the local directory tree rooted at "qa_data/sftpUploadTree"
    // with the remote directory tree rooted at "syncUploadTest"
    // Both directories are relative paths.  The remote directory
    // is relative to the HOME directory of the SSH user account.
    // The local directory is relative to the current working directory of the process.
    // It is also possible to use absolute paths.

    Move "syncUploadTest" To sRemoteDir
    Move "qa_data/sftpUploadTree" To sLocalDir

    // Possible modes that can be passed to the SyncTreeUpload method are:
    // mode=0: Upload all files
    // mode=1: Upload all files that do not exist on the server.
    // mode=2: Upload newer or non-existant files.
    // mode=3: Upload only newer files. If a file does not already exist on the server, it is not uploaded.
    // mode=4: transfer missing files or files with size differences.
    // mode=5: same as mode 4, but also newer files.

    // This example will use mode 5 to upload missing, newer, or files with size differences.
    Move 5 To iMode
    // This example turns on recursion to synchronize the entire tree. 
    // Recursion can be turned off to synchronize the files of a single directory.
    Move True To iRecursive
    Get ComSyncTreeUpload Of hoSftp sLocalDir sRemoteDir iMode iRecursive To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSftp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure