(Tcl) Directory Existence Check

How to test if a directory exists on an FTP server.

A good way to check to see if a directory already exists is to try to "cd" to that remote directory by calling ChangeRemoteDir. If it succeeds, then the directory exists. If not, then it does not exist. An alternative method is to set the ListPattern = "*" and then iterate over the files/directories, looking for the directory.

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 ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "login"
CkFtp2_put_Password $ftp "password"

# Connect and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Does the "temp" directory exist?

set dirExists [CkFtp2_ChangeRemoteDir $ftp "/temp"]
if {$dirExists == 1} then {
    puts "Yes, the temp directory exists."
    #  Yes, it exists. Restore the current remote dir:
    set success [CkFtp2_ChangeRemoteDir $ftp ".."]
    if {$success != 1} then {
        puts [CkFtp2_lastErrorText $ftp]
        delete_CkFtp2 $ftp
        exit
    }

}

# Alternatively, you may set the ListPattern = "*" and 
#  look for the directory:
CkFtp2_put_ListPattern $ftp "*"

set n [CkFtp2_GetDirCount $ftp]
if {$n < 0} then {
    # Failed to get directory listing based on ListPattern
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

if {$n > 0} then {
    for {set i 0} {$i <= [expr $n - 1]} {incr i} {

        set isDir [CkFtp2_GetIsDirectory $ftp $i]
        if {$isDir == 1} then {

            set fname [CkFtp2_getFilename $ftp $i]
            if {$fname == "temp"} then {
                puts "Found temp directory!"
                set success [CkFtp2_Disconnect $ftp]
                delete_CkFtp2 $ftp
                exit
            }

        }

    }
}

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp