(PureBasic) Unzip

See more Zip Examples

Unzip a zip archive, creating the subfolders as needed.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"

Procedure ChilkatExample()

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

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

    success.i = CkZip::ckOpenZip(zip,"qa_data/zips/sample.zip")
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Unzip to c:/temp/testDir
    ; If c:/temp/testDir does not yet exist, it will be auto-created.
    numFilesUnzipped.i = CkZip::ckUnzip(zip,"c:/temp/testDir")
    If numFilesUnzipped < 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; If, for example, the zip contained these files:

    ; aaa/pigs.json
    ; bbb/base64Cert.txt
    ; bbb/sub1/brasil_cert.pem
    ; bbb/sub2/penguins.gif
    ; bbb/sub2/starfish.jpg
    ; hamlet.xml
    ; hello.pdf

    ; then after unzipping, the following files will be created:

    ; c:/temp/testDir/aaa/pigs.json
    ; c:/temp/testDir/bbb/base64Cert.txt
    ; c:/temp/testDir/bbb/sub1/brasil_cert.pem
    ; c:/temp/testDir/bbb/sub2/penguins.gif
    ; c:/temp/testDir/bbb/sub2/starfish.jpg
    ; c:/temp/testDir/hamlet.xml
    ; c:/temp/testDir/hello.pdf

    CkZip::ckCloseZip(zip)


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure