(PureBasic) Get the Last-Modified Date/Time for one File by Name

Demonstrates how to get the last-modified date/time for a file on the FTP server by specifying the remote file path.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFtp2.pb"
IncludeFile "CkDateTime.pb"

Procedure ChilkatExample()

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "myLogin")
    CkFtp2::setCkPassword(ftp, "myPassword")
    ; Use explicit TLS
    CkFtp2::setCkAuthTls(ftp, 1)
    CkFtp2::setCkPort(ftp, 21)

    ; For debugging, turn on session logging so we can examine what is sent by the server.
    CkFtp2::setCkKeepSessionLog(ftp, 1)

    ; Connect and login to the FTP server.
    success.i = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    CkFtp2::ckChangeRemoteDir(ftp,"AAWorkarea")

    ; Get the last-modified date/time information for the file "package.tgz"
    dt.i = CkFtp2::ckGetLastModDtByName(ftp,"package.tgz")
    If CkFtp2::ckLastMethodSuccess(ftp) = 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    Debug CkDateTime::ckGetAsTimestamp(dt,0)
    CkDateTime::ckDispose(dt)

    ; Show the session log so we can see the details of the date/time information sent by the server.
    ; This tells us what information is available.  Some FTP servers provide better and more accurate information
    ; than others.

    Debug "---- Session Log ----"
    Debug CkFtp2::ckSessionLog(ftp)

    CkFtp2::ckDisconnect(ftp)


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure