PureBasic

Download Multiple Files Matching Pattern

See more FTP Examples

The MGetFiles method can be called to download all files matching a wildcarded filename pattern. PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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, "myUsername")
    CkFtp2::setCkPassword(ftp, "myPassword")
    CkFtp2::setCkPort(ftp, 21)
    CkFtp2::setCkAuthTls(ftp, 1)

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

    ; Change to the remote directory where the files are located.
    ; This step is only necessary if the files are not in the root directory
    ; of the FTP account.
    success = CkFtp2::ckChangeRemoteDir(ftp,"qa")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Download all files with filenames matching "*.txt"
    ; The files are downloaded into c:/temp/qa_output
    numFilesDownloaded.i = CkFtp2::ckMGetFiles(ftp,"*.txt","c:/temp/qa_output")
    If numFilesDownloaded < 0
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug Str(numFilesDownloaded) + " Files Downloaded!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure