(Tcl) SFTP Where Did My Upload Go?

This example answers a common question: "I use Chilkat SFTP to upload a file. It says it was successful, but file is not on the server. How do you change directories?";

First, "SFTP" is Secure File Transfer over SSH and has *nothing* to do with FTP (the File Transfer Protocol). It is completely unrelated to FTP. Therefore, FTP concepts such as "current directory", and "binary/ascii transfer modes" don't exist in SFTP.

In SFTP, you authenticate using a user account on the remote server. This could be an actual user account on the server, or a logical user account that exists in the context of the SSH server. In either case, the user account has a home directory. If you open a file on the SSH/SFTP server using only the filename and no path, then your filename will be placed in the user account's home directory. To find out the location of the home directory, call RealPath and pass "." for the directory path. It will return the absolute path of the home directory.

Given that there is no "current directory" concept in SFTP, you must specify either an absolute path or relative path when opening/creating a file that is to be in a directory other than the account's home directory. A relative path is relative to the home directory.

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 some timeouts, in milliseconds:
CkSFtp_put_ConnectTimeoutMs $sftp 5000
CkSFtp_put_IdleTimeoutMs $sftp 10000

# Connect to the SSH server.  
# The standard SSH port = 22
# The hostname may be a hostname or IP address.
set hostname "sftp.example.com"
set port 22
set success [CkSFtp_Connect $sftp $hostname $port]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Authenticate with the SSH server.  Chilkat SFTP supports
# both password-based authenication as well as public-key
# authentication.  This example uses password authenication.
set success [CkSFtp_AuthenticatePw $sftp "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# After authenticating, the SFTP subsystem must be initialized:
set success [CkSFtp_InitializeSftp $sftp]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# To find the full path of our user account's home directory,
# call RealPath like this:
set absPath [CkSFtp_realPath $sftp "." ""]
if {[CkSFtp_get_LastMethodSuccess $sftp] != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
} else {
    puts "$absPath"
}


delete_CkSFtp $sftp