(PureBasic) List Files in Zip using FirstEntry/NextEntry

See more Zip Examples

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.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/xml_files.zip")
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    entry.i = CkZip::ckFirstEntry(zip)
    If CkZip::ckLastMethodSuccess(zip) = 0
        Debug "This zip archive is empty."
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    finished.i = 0
    While finished = 0

        If CkZipEntry::ckIsDirectory(entry) = 0
            Debug CkZipEntry::ckFileName(entry)
        Else
            Debug "(directory) " + CkZipEntry::ckFileName(entry)
        EndIf

        next.i = CkZipEntry::ckNextEntry(entry)
        If CkZipEntry::ckLastMethodSuccess(entry) = 0
            finished = 1
        EndIf

        CkZipEntry::ckDispose(entry)

        entry = next
    Wend

    ; Sample output showing both file and directory entries:

    ; a1.xml
    ; b1.xml
    ; c1.xml
    ; (directory) dir1/
    ; dir1/a2.xml
    ; dir1/c2.xml
    ; (directory) dir2/
    ; (directory) dir2/dir3/
    ; dir2/dir3/c3.xml


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure