(Xojo Plugin) Iterate Through ZIP Entries Using EntryAt and ZipEntry.GetNext

See more Zip Examples

This example demonstrates how to iterate through all entries in a ZIP archive using:

• Zip.EntryAt to obtain the first entry
• ZipEntry.GetNext to advance through the remaining entries

The example prints each ZIP entry's stored filename and whether the entry is a file or directory.

This approach is useful when sequentially processing ZIP entries without repeatedly calling EntryAt by index.

Suppose the ZIP archive contains:

docs/
docs/readme.txt
images/logo.png
hello.txt

The example iterates through each entry in the order stored within the ZIP archive.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

Dim zip As New Chilkat.Zip

// Open an existing ZIP archive.
success = zip.OpenZip("c:/temp/example.zip")
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// A ZIP archive may contain zero entries.
If (zip.NumEntries = 0) Then

    System.DebugLog("The ZIP archive is empty.")

    zip.CloseZip 
    Return
End If

// ------------------------------------------------------------
// Get the first ZIP entry.
// 
// EntryAt(0,entry) initializes the ZipEntry object so that
// it represents the first entry in the ZIP archive.
// 
Dim entry As New Chilkat.ZipEntry

success = zip.EntryAt(0,entry)
If (success = False) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// ------------------------------------------------------------
// Iterate through all ZIP entries.
// 
// GetNext updates the same ZipEntry object so that it
// represents the next entry in the ZIP archive.
// 
While (success = True)

    If (entry.IsDirectory = True) Then

        System.DebugLog("[Directory] " + entry.FileName)

    Else

        System.DebugLog("[File] " + entry.FileName)
    End If

    // Advance to the next entry.
    success = entry.GetNext()
Wend

zip.CloseZip 

System.DebugLog("Done.")