(PureBasic) Append to Existing File on FTP Server

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.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.myftpserver.com")
    CkFtp2::setCkUsername(ftp, "myUsername")
    CkFtp2::setCkPassword(ftp, "myPassword")

    ; Connect to the FTP server.
    success.i = CkFtp2::ckConnectOnly(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Authenticate with the FTP server.
    success = CkFtp2::ckLoginAfterConnectOnly(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    localFilePath.s = "/someDirectory/hamlet.xml"
    remoteFilename.s = "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.
    success = CkFtp2::ckAppendFile(ftp,localFilePath,remoteFilename)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    CkFtp2::ckDisconnect(ftp)

    Debug "Success."


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure