(PureBasic) Delete Files Matching Pattern

The DeleteMatching method deletes all files in the current remote directory matching a wildcarded filename.

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, "www.chilkatsoft.com")
    CkFtp2::setCkUsername(ftp, "MyLogin")
    CkFtp2::setCkPassword(ftp, "MyPassword")

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

    ; Change to the remote directory where the files to be deleted are located.
    ; for the FTP account.
    success = CkFtp2::ckChangeRemoteDir(ftp,"junk")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Delete all files with filenames matching "ftp_*.asp"
    numDeleted.i = CkFtp2::ckDeleteMatching(ftp,"ftp_*.asp")
    If numDeleted < 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug Str(numDeleted) + " Files Deleted!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure