Tcl
Tcl
Get a Remote FTP File's Creation Time by Name
See more FTP Examples
Demonstrates the Chilkat Ftp2.GetCreateTimeByNameStr method, which returns the creation time of a named item in the current remote directory as an RFC 822 date-time string. The only argument is the filename.
Background: Creation time is the least commonly supported of the timestamps — many servers report only the modification time — so treat an empty or missing result as "not available" rather than an error. Where it is provided, it is useful precisely because it does not change when a file is edited.
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# Demonstrates the Ftp2.GetCreateTimeByNameStr method, which returns the creation time of a named
# item in the current remote directory as an RFC 822 date-time string. The only argument is the
# filename.
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"
set success [CkFtp2_Connect $ftp]
if {$success == 0} then {
puts [CkFtp2_lastErrorText $ftp]
delete_CkFtp2 $ftp
exit
}
set success [CkFtp2_ChangeRemoteDir $ftp "public_html"]
if {$success == 0} then {
puts [CkFtp2_lastErrorText $ftp]
delete_CkFtp2 $ftp
exit
}
# Not all servers report a creation time.
set createTime [CkFtp2_getCreateTimeByNameStr $ftp "report.pdf"]
if {[CkFtp2_get_LastMethodSuccess $ftp] == 0} then {
puts [CkFtp2_lastErrorText $ftp]
delete_CkFtp2 $ftp
exit
}
puts "Created: $createTime"
set success [CkFtp2_Disconnect $ftp]
if {$success == 0} then {
puts [CkFtp2_lastErrorText $ftp]
delete_CkFtp2 $ftp
exit
}
delete_CkFtp2 $ftp