(Tcl) SFTP Download all Files in a Directory

Demonstrates how to download all files in a remote directory. This example uses the SyncTreeDownload method in a non-recursive mode that forces the download of all files, regardless of date/time or size differences.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set sftp [new_CkSFtp]

set success [CkSFtp_Connect $sftp "my-ssh-server.com" 22]
if {$success == 1} then {
    set success [CkSFtp_AuthenticatePw $sftp "mySshLogin" "mySshPassword"]
}

if {$success == 1} then {
    set success [CkSFtp_InitializeSftp $sftp]
}

if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Download all the files from the remote directory "syncDownloadTest/xml"
# into our local directory "qa_output"
# 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.

set remoteDir "syncDownloadTest/xml"
set localDir "qa_output"
# Mode 0 causes SyncTreeDownload to download all files.
set mode 0
# Do not recursively descend the remote directory tree.  Just download all the files in specified directory.
set recursive 0
set success [CkSFtp_SyncTreeDownload $sftp $remoteDir $localDir $mode $recursive]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

puts "Success."

delete_CkSFtp $sftp