(Tcl) SFTP Get File Date/Times in Different Formats

See more SFTP Examples

Demonstrates how to get remote file date/times in different formats.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set sftp [new_CkSFtp]

# Connect to the SSH server.  
set hostname "my-sftp-server.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. 
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
}

# Open a directory on the server...
# This example opens the "junk" directory located under the HOME directory of the SSH user account.
set handle [CkSFtp_openDir $sftp "junk"]
if {[CkSFtp_get_LastMethodSuccess $sftp] != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Download the directory listing:
# dirListing is a CkSFtpDir
set dirListing [CkSFtp_ReadDir $sftp $handle]
if {[CkSFtp_get_LastMethodSuccess $sftp] != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Close the directory handle
set success [CkSFtp_CloseHandle $sftp $handle]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Iterate over the files.
# Examine each filename and indicate those that match *FICHERO*.pdf
# (i.e. the filename contains the word "FICHERO" and ends in ".pdf")
set i 0
set n [CkSFtpDir_get_NumFilesAndDirs $dirListing]
set sbFilename [new_CkStringBuilder]

set caseSensitive 0
set bLocalDateTime 0
while {$i < $n} {
    # fileObj is a CkSFtpFile
    set fileObj [CkSFtpDir_GetFileObject $dirListing $i]
    puts [CkSFtpFile_filename $fileObj]

    # Get the last-modified date/time
    # dt is a CkDateTime
    set dt [CkSFtpFile_GetLastModifiedDt $fileObj]

    # Get the date/time in any format offered by the CkDateTime object.

    # such as Wed, 18 Oct 2017 09:08:21 GMT
    puts "RFC822 format: [CkDateTime_getAsRfc822 $dt $bLocalDateTime]"

    # such as 1990-12-31T23:59:60Z
    puts "Timestamp: [CkDateTime_getAsTimestamp $dt $bLocalDateTime]"

    # Such as: "02/16/2008 12:15:12"  where hour is 0 to 23.
    puts "RFC822 format: [CkDateTime_getAsIso8601 $dt MM/DD/YYYY hh:mm:ss $bLocalDateTime]"

    delete_CkDateTime $dt

    delete_CkSFtpFile $fileObj

    set i [expr $i + 1]
}

delete_CkSFtpDir $dirListing

puts "Success."

delete_CkSFtp $sftp
delete_CkStringBuilder $sbFilename