Visual FoxPro

Copy Local File Attributes to a Remote SFTP File

Demonstrates the Chilkat SFtp.CopyFileAttr method, which copies supported timestamps and attributes from a local file to a remote item. The arguments are the local file, the remote file (a path or an open handle), and isHandle indicating which form the second argument takes.

Note: This example uses a relative local path, which is resolved against the application's current working directory. Absolute local paths may also be used. Supply the path appropriate to your own environment.

Background: An upload transfers a file's bytes but not necessarily its metadata, so the remote copy may end up with the upload time as its modified time. CopyFileAttr propagates the local file's timestamps and attributes to the remote file, which matters for backups and mirrors where preserving modification times is important — and for incremental sync logic that compares timestamps to decide what changed. The isHandle flag lets you target either a remote path or a file you already have open.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSftp
LOCAL lnPort
LOCAL lcPassword
LOCAL lnIsHandle

lnSuccess = 0

*  Demonstrates the SFtp.CopyFileAttr method, which copies supported timestamps and attributes
*  from a local file to a remote item.  The 1st argument is the local file, the 2nd is the
*  remote file (a path or an open handle), and the 3rd (isHandle) indicates which.

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

*  Upload a file first.
lnSuccess = loSftp.UploadFileByName("subdir/report.pdf","qa_data/report.pdf")
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  Copy the local file's timestamps and attributes onto the remote file.  Because the 2nd
*  argument is a remote path (not an open handle), isHandle is 0.
lnIsHandle = 0
lnSuccess = loSftp.CopyFileAttr("qa_data/report.pdf","subdir/report.pdf",lnIsHandle)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

? "Attributes copied."

loSftp.Disconnect()

RELEASE loSftp