(Classic ASP) Iterate Over ZIP Entries Using EntryAt

This example demonstrates how to use the EntryAt method to iterate over all entries contained within a ZIP archive.

The EntryAt method retrieves a ZipEntry object for a given zero-based index.

This is useful for:

Enumerating all entries in a ZIP archive
Inspecting filenames, sizes, and timestamps
Searching or filtering ZIP contents

Suppose the ZIP archive contains:

docs/readme.txt images/logo.png data/config.json

The example loops through all ZIP entries and prints information about each entry.

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

success = 0

' Open an existing ZIP archive.
set zip = Server.CreateObject("Chilkat.Zip")

success = zip.OpenZip("example.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Get the total number of entries in the ZIP archive.
numEntries = zip.NumEntries

Response.Write "<pre>" & Server.HTMLEncode( "Number of ZIP entries = " & numEntries) & "</pre>"

' Create a ZipEntry object that will be reused
' for each entry retrieved by EntryAt.
set entry = Server.CreateObject("Chilkat.ZipEntry")

' Iterate over all ZIP entries.
i = 0
Do While i < numEntries

    ' Retrieve the entry at index i.
    success = zip.EntryAt(i,entry)
    If (success = 0) Then
        Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
        Response.End
    End If

    Response.Write "<pre>" & Server.HTMLEncode( "Entry " & i) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "  FileName: " & entry.FileName) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "  Uncompressed Length: " & entry.UncompressedLength) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "  Compressed Length: " & entry.CompressedLength) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

    i = i + 1
Loop

' Sample output:
' 
' Entry 0
'   FileName: docs/readme.txt
'   Uncompressed Length: 1204
'   Compressed Length: 512
' 
' Entry 1
'   FileName: images/logo.png
'   Uncompressed Length: 84211
'   Compressed Length: 84102
' 

zip.CloseZip 

Response.Write "<pre>" & Server.HTMLEncode( "Done.") & "</pre>"

%>
</body>
</html>