Tcl

FTP Iterate over Files in Directory Matching ListPattern

See more RSA Examples

Uses the ListPattern property to iterate over the files in a directory matching the pattern. Tcl

load ./chilkat.dll

set success 0

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

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "my_login"
CkFtp2_put_Password $ftp "my_password"
CkFtp2_put_Port $ftp 21
CkFtp2_put_AuthTls $ftp 1

set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Change to the "images" sub-directory located under our FTP account's home directory.
set success [CkFtp2_ChangeRemoteDir $ftp "images"]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

CkFtp2_put_ListPattern $ftp "*.png"

# Fetch the current remote directory contents by calling GetDirCount
set n [CkFtp2_GetDirCount $ftp]
if {$n < 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

set i 0

set sbLocalPath [new_CkStringBuilder]

while {$i < $n} {
    set filename [CkFtp2_getFilename $ftp $i]
    puts "$filename"

    # Download this file.
    CkStringBuilder_SetString $sbLocalPath "qa_output/"
    CkStringBuilder_Append $sbLocalPath $filename
    set success [CkFtp2_GetFile $ftp $filename [CkStringBuilder_getAsString $sbLocalPath]]
    if {$success != 1} then {
        puts [CkFtp2_lastErrorText $ftp]
        delete_CkFtp2 $ftp
        delete_CkStringBuilder $sbLocalPath
        exit
    }

    set i [expr $i + 1]
}

delete_CkFtp2 $ftp
delete_CkStringBuilder $sbLocalPath