PureBasic

Find a ZIP Entry by Exact Path Using EntryOf

See more Zip Examples

This example demonstrates how to use the EntryOf method to find a ZIP entry whose stored path exactly matches a specified path.

Unlike EntryMatching, which performs wildcard matching, EntryOf performs an exact path lookup.

This method is useful when:

• The exact ZIP path is already known
• Retrieving a specific file or directory entry
• Verifying whether a particular entry exists in the ZIP archive

Suppose the ZIP archive contains:

docs/
docs/readme.txt
docs/manual.pdf
images/logo.png
data/config/settings.json

ZIP archives may optionally contain explicit directory entries such as docs/. These directory entries can also be retrieved using EntryOf.

The example:

• Finds an exact file entry
• Finds an exact directory entry
• Demonstrates the difference between file and directory entries

PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

    success = 0

    ; Open an existing ZIP archive.
    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkZip::ckOpenZip(zip,"example.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

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

    ; ------------------------------------------------------------
    ; Find a specific file entry by its exact ZIP path.

    success = CkZip::ckEntryOf(zip,"docs/readme.txt",entry)

    If success = 1
        Debug "Found file entry:"
        Debug "  FileName = " + CkZipEntry::ckFileName(entry)
        Debug "  IsDirectory = " + Str(CkZipEntry::ckIsDirectory(entry))
        Debug ""
    EndIf

    ; ------------------------------------------------------------
    ; Find a directory entry.
    ; 
    ; ZIP archives may optionally contain explicit directory entries.
    ; In this example, "docs/" is a separate directory entry.

    success = CkZip::ckEntryOf(zip,"docs/",entry)

    If success = 1
        Debug "Found directory entry:"
        Debug "  FileName = " + CkZipEntry::ckFileName(entry)
        Debug "  IsDirectory = " + Str(CkZipEntry::ckIsDirectory(entry))
        Debug ""
    EndIf

    ; ------------------------------------------------------------
    ; Attempt to find a non-existent entry.

    success = CkZip::ckEntryOf(zip,"images/missing.png",entry)

    If success = 0
        Debug "The entry images/missing.png was not found."
    EndIf

    CkZip::ckCloseZip(zip)

    Debug "Done."


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


    ProcedureReturn
EndProcedure