Visual FoxPro

Append to Existing File on FTP Server

See more FTP Examples

Uploads a file to the FTP server. If the remote file (on the FTP server) does not already exist, it is created. Otherwise the uploaded file is appended to the remote file. Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lcLocalFilePath
LOCAL lcRemoteFilename

lnSuccess = 0

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

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.myftpserver.com"
loFtp.Username = "myUsername"
loFtp.Password = "myPassword"

* Connect to the FTP server.
lnSuccess = loFtp.ConnectOnly()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Authenticate with the FTP server.
lnSuccess = loFtp.LoginAfterConnectOnly()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

lcLocalFilePath = "/someDirectory/hamlet.xml"
lcRemoteFilename = "hamlet.xml"

* Upload to the FTP server, creating the file if it does not yet exist
* on the FTP server, or appending to the remote file if it already exists.
lnSuccess = loFtp.AppendFile(lcLocalFilePath,lcRemoteFilename)
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

loFtp.Disconnect()

? "Success."

RELEASE loFtp