Visual FoxPro

Get a Remote File's Last-Modified Time

Demonstrates the Chilkat SFtp.GetFileLastModifiedStr method, which returns a remote file's last-modified date and time. The arguments are the remote path (or handle), whether symbolic links are followed, and whether the first argument is a handle.

Background: The last-modified time is the workhorse timestamp — it updates whenever a file's contents change and is what incremental-sync logic compares to decide whether a file needs re-transferring. It is the most reliably supported of the three across servers and filesystems, which is why timestamp-based sync keys off it.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSftp
LOCAL lnPort
LOCAL lcPassword
LOCAL lnBFollowLinks
LOCAL lnBIsHandle
LOCAL lcLastModified

lnSuccess = 0

*  Demonstrates the SFtp.GetFileLastModifiedStr method, which returns a remote file's last-modified
*  date and time.  The 1st argument is the remote path (or handle), the 2nd selects whether
*  symbolic links are followed, and the 3rd indicates whether the 1st argument is a handle.

loSftp = CreateObject('Chilkat.SFtp')

*  Connect, authenticate, and initialize the SFTP subsystem.
lnPort = 22
lnSuccess = loSftp.Connect("sftp.example.com",lnPort)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  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.
lcPassword = "mySshPassword"

lnSuccess = loSftp.AuthenticatePw("mySshLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  The 2nd argument (bFollowLinks) selects whether a symbolic link is followed to its target.
*  The 3rd argument (bIsHandle) is 0 here because the 1st argument is a path, not an
*  open handle.
lnBFollowLinks = 1
lnBIsHandle = 0

lcLastModified = loSftp.GetFileLastModifiedStr("subdir/report.pdf",lnBFollowLinks,lnBIsHandle)
IF (loSftp.LastMethodSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

? "Last modified: " + lcLastModified

loSftp.Disconnect()

RELEASE loSftp