(Tcl) SFTP Download Files Matching a Pattern

Demonstrates how to download files in a directory matching one or more patterns (such as "*.zip" or "abc*_*0719.csv".

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires 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
}

# The SyncTreeDownload method can be used non-recursively to download all files matching a set of patterns.

# This example will download all files, but only those files having filenames
# that match *.csv and *.eml
CkSFtp_put_SyncMustMatch $sftp "*.eml; *.gif"

set remoteDir "syncDownloadTest/someDir"
set localDir "qa_output"

# mode=0: Download all matching files according to SyncMustMatch
set mode 0

# do not recursively traverse the remote directory tree.
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