Xbase++ Requires Chilkat v11.0.0+

FTP Set Remote File Date/Time Equal to Local File's Last-Modified Date/Time

See more FTP Examples

Demonstrates how to set a remote file's date/time to be equal to a local file's date/time.

Important: Not all FTP servers support the ability to set a file's date/time.

Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL oFac
LOCAL oDt
LOCAL cLastModTimestamp

nSuccess := 0

//  This example assumes Chilkat Ftp2 to have been previously unlocked.
//  See Unlock Ftp2 for sample code.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "www.authtls-ftps-server.com"
oFtp:Username := "FTP_LOGIN"
oFtp:Password := "FTP_PASSWORD"
oFtp:AuthTls := 1
oFtp:Port := 21

//  Connect to the FTP server using explicit TLS (AUTH TLS).
nSuccess := oFtp:ConnectOnly()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Authenticate.
nSuccess := oFtp:LoginAfterConnectOnly()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  We're going to get the last-mod date/time for the local file
//  "qa_data/hamlet.xml", and then set the remote "hamlet.xml" to this date/time.
oFac := CreateObject("Chilkat.FileAccess")
oDt := CreateObject("Chilkat.CkDateTime")
cLastModTimestamp := oFac:GetFileTimeStr("qa_data/hamlet.xml", 0)
oDt:SetFromTimestamp(cLastModTimestamp)

nSuccess := oFtp:SetRemoteFileDt(oDt, "hamlet.xml")
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oDt:destroy()
    oFtp:destroy()
    oFac:destroy()
    oDt:destroy()
    RETURN
ENDIF

oFtp:Disconnect()

? "Success."

oFtp:destroy()
oFac:destroy()
oDt:destroy()