(PureBasic) File Existence Check

Testing to see if a file exists on the FTP server. The GetSizeByName method is a convenient way to check if a file exists. It will return -1 if the file does not exist, otherwise it returns the size of the file in bytes.

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.example.com")
    CkFtp2::setCkUsername(ftp, "username")
    CkFtp2::setCkPassword(ftp, "password")

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

    ; Set the current remote directory to where the file is located:
    success = CkFtp2::ckChangeRemoteDir(ftp,"something")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Test to see if the file exists by getting the file size by name. 
    ; If a -1 is returned, the file does not exist.
    fileSize.i = CkFtp2::ckGetSizeByName(ftp,"test123.txt")
    If fileSize < 0
        Debug "file does not exist"
    Else
        Debug "file exists and is " + Str(fileSize) + " bytes in size"
    EndIf

    success = CkFtp2::ckDisconnect(ftp)


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure