Classic ASP

Iterate Through Matching ZIP Entries Using EntryMatching and ZipEntry.GetNextMatch

This example demonstrates how to iterate through ZIP entries matching a wildcard pattern using:

Zip.EntryMatching to obtain the first matching entry
ZipEntry.GetNextMatch to advance to subsequent matching entries

The wildcard character * matches zero or more characters. Matching is performed against the full stored ZIP entry path.

The example searches for all entries beneath the docs/ directory.

Suppose the ZIP archive contains:

docs/ docs/readme.txt docs/manual.pdf docs/sub1/notes.txt images/logo.png hello.txt

The wildcard pattern:

docs/*

Matches:

docs/ docs/readme.txt docs/manual.pdf docs/sub1/notes.txt

Note that ZIP archives may optionally contain separate directory entries. Therefore, the first matching entry may be the directory entry docs/ rather than a file entry.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

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

set zip = Server.CreateObject("Chilkat.Zip")

' Open an existing ZIP archive.
success = zip.OpenZip("c:/temp/sample.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' ------------------------------------------------------------
' Find the first ZIP entry matching the wildcard pattern:
' 
'     docs/*
' 
' Matching is performed against the full stored ZIP path.
' 
set entry = Server.CreateObject("Chilkat.ZipEntry")

success = zip.EntryMatching("docs/*",entry)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "No matching entries found.") & "</pre>"
    zip.CloseZip 
    Response.End
End If

' ------------------------------------------------------------
' Iterate through all matching entries.
' 
' GetNextMatch updates the same ZipEntry object so that
' it represents the next matching entry.
' 
Do While (success = 1)
    If (entry.IsDirectory = 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( "[Directory] " & entry.FileName) & "</pre>"
    Else
        Response.Write "<pre>" & Server.HTMLEncode( "[File] " & entry.FileName) & "</pre>"
    End If

    ' Advance to the next matching entry.
    success = entry.GetNextMatch("docs/*")
Loop

zip.CloseZip 

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

%>
</body>
</html>