Xbase++ Requires Chilkat v11.0.0+

Get Last Modified Date/Time of Files in a Remote Directory

Gets the last-modified date/times of files in a remote FTP directory. Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL n
LOCAL i

nSuccess := 0

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

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "ftp.example.com"
oFtp:Username := "myLogin"
oFtp:Password := "myPassword"
//  Use explicit TLS
oFtp:AuthTls := 1
oFtp:Port := 21

//  For debugging, turn on session logging so we can examine what is sent by the server.
oFtp:KeepSessionLog := 1

//  Connect and login to the FTP server.
nSuccess := oFtp:Connect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Iterate over .txt files.
oFtp:ListPattern := "*.txt"
n := oFtp:GetDirCount()
? "n = " + Str(n)

i := 0
DO WHILE i < n
    ? Str(i) + ": " + oFtp:GetFilename(i) + ", " + oFtp:GetLastModifiedTimeStr(i)
    i := i + 1
ENDDO

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

? "---- Session Log ----"
? oFtp:SessionLog

oFtp:Disconnect()

oFtp:destroy()