(PureBasic) Extract a Single ZIP Entry While Preserving Its Stored Path

See more Zip Examples

This example demonstrates how to use the ZipEntry.Extract method to extract a single entry from a ZIP archive.

The example first creates a ZIP archive containing a text file. It then re-opens the ZIP, finds the entry, and extracts it to a base directory.

The Extract method uses the relative path stored within the ZIP entry. Any required subdirectories are created automatically beneath the specified base directory.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

    success.i = 0

    ; ------------------------------------------------------------
    ; First create a sample ZIP archive containing a small text file.

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

    success = CkZip::ckNewZip(zip,"c:/temp/sampleText.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Add a small text file from memory.
    success = CkZip::ckAddString(zip,"myApp/docs/hello.txt","Hello from a ZIP entry!","utf-8")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Write the ZIP archive to disk and close it.
    success = CkZip::ckWriteZipAndClose(zip)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; ------------------------------------------------------------
    ; Now open the ZIP archive we just created.

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

    success = CkZip::ckOpenZip(zip2,"c:/temp/sampleText.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip2)
        CkZip::ckDispose(zip)
        CkZip::ckDispose(zip2)
        ProcedureReturn
    EndIf

    ; Find the entry by its stored ZIP path.
    entry.i = CkZipEntry::ckCreate()
    If entry.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkZip::ckEntryOf(zip2,"myApp/docs/hello.txt",entry)

    If success = 0
        Debug "Entry not found."
        CkZip::ckDispose(zip)
        CkZip::ckDispose(zip2)
        CkZipEntry::ckDispose(entry)
        ProcedureReturn
    EndIf

    ; Extract this single entry to the base directory:
    ; 
    ;     c:/temp/extracted
    ; 
    ; Because the entry's stored path is:
    ; 
    ;     myApp/docs/hello.txt
    ; 
    ; the file will be extracted to:
    ; 
    ;     qa_output/extracted/myApp/docs/hello.txt
    ; 
    ; The required subdirectories are created automatically.
    success = CkZipEntry::ckExtract(entry,"c:/temp/extracted")
    If success = 0
        Debug CkZipEntry::ckLastErrorText(entry)
        CkZip::ckDispose(zip)
        CkZip::ckDispose(zip2)
        CkZipEntry::ckDispose(entry)
        ProcedureReturn
    EndIf

    CkZip::ckCloseZip(zip2)

    Debug "Entry extracted successfully."


    CkZip::ckDispose(zip)
    CkZip::ckDispose(zip2)
    CkZipEntry::ckDispose(entry)


    ProcedureReturn
EndProcedure