Visual FoxPro

Limit FTP DownloadTree by Modification Date

Demonstrates the Chilkat Ftp2.SetOldestDateStr method, which sets the oldest remote modification time eligible for DownloadTree. The only argument is an RFC 822 date-time string; files older than it are skipped. It is a void method.

Background: This is a date filter for the recursive download: set a cutoff and DownloadTree pulls only files modified on or after it, ignoring everything older. It is ideal for fetching just recent activity — new logs, today's uploads — from a directory that also holds a large archive you do not want to re-download. The RFC 822 string carries a timezone so the cutoff is unambiguous.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp

lnSuccess = 0

*  Demonstrates the Ftp2.SetOldestDateStr method, which sets the oldest remote modification time
*  eligible for DownloadTree.  The only argument is an RFC 822 date-time string.  It is a void
*  method.

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "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.
loFtp.Password = "myPassword"

lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

lnSuccess = loFtp.ChangeRemoteDir("public_html")
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

*  Only files modified on or after this date will be considered by DownloadTree.  Files older
*  than this are skipped.
loFtp.SetOldestDateStr("Wed, 01 Jul 2026 00:00:00 -0000")

*  Download only the recently-modified files in the remote tree.
lnSuccess = loFtp.DownloadTree("qa_output/recent")
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

? "Downloaded recently modified files."

lnSuccess = loFtp.Disconnect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

RELEASE loFtp