Visual FoxPro

Append a Local File to a Remote FTP File

Demonstrates the Chilkat Ftp2.AppendFile method, which appends the contents of a local file to a remote file. The first argument is the local file path and the second is the remote file path. It uses the FTP APPE command.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: Unlike PutFile, which replaces the remote file, APPE adds to the end of it — the natural fit for accumulating log data or assembling a file from parts. On a server with normal APPE behavior a missing remote file is created; however, APPE support and exact semantics vary by server, so verify against yours if it is critical.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp

lnSuccess = 0

*  Demonstrates the Ftp2.AppendFile method, which appends the contents of a local file to a remote
*  file.  The 1st argument is the local file path and the 2nd is the remote file path.

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

*  Uses the FTP APPE command.  On a server with normal APPE behavior, a missing remote file is
*  created; otherwise the local bytes are appended to the end of the existing remote file.
lnSuccess = loFtp.AppendFile("qa_data/today.log","logs/app.log")
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

? "Appended to the remote file."

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

RELEASE loFtp