Tcl

Get the Current Remote Directory (PWD)

Demonstrates the Chilkat Ftp2.GetCurrentRemoteDir method, which returns the current working directory reported by the FTP server, normally via the PWD command. It takes no arguments.

Background: FTP is stateful: the server tracks a current working directory per session, and relative paths in later commands are resolved against it. Reading it back is useful to confirm where you are after a ChangeRemoteDir, or to record the starting directory so you can return to it. The value comes from the server, so it reflects the server's own path syntax and canonicalization.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Ftp2.GetCurrentRemoteDir method, which returns the current working directory
#  reported by the FTP server (normally via the PWD command).  It takes no arguments.

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "myFtpLogin"

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
CkFtp2_put_Password $ftp "myPassword"

#  Connect and log in (Connect performs both).
set success [CkFtp2_Connect $ftp]
if {$success == 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

set currentDir [CkFtp2_getCurrentRemoteDir $ftp]
if {[CkFtp2_get_LastMethodSuccess $ftp] == 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

puts "Current remote directory: $currentDir"

set success [CkFtp2_Disconnect $ftp]
if {$success == 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}


delete_CkFtp2 $ftp