Classic ASP

Find a ZIP Entry by EntryID Using EntryById

This example demonstrates how to use the EntryById method to retrieve a ZIP entry using its unique EntryID.

Each ZipEntry object has an EntryID property that uniquely identifies the entry within the currently open ZIP object.

This is useful when:

An application stores EntryID values for later use
ZIP entries need to be retrieved without searching by filename
Multiple entries may have similar names or paths

The example:

Opens a ZIP archive
Retrieves an entry using EntryAt
Saves the entry's EntryID
Uses EntryById to retrieve the same entry later

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

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

' Retrieve the first entry in the ZIP archive.
set entry = Server.CreateObject("Chilkat.ZipEntry")

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

Response.Write "<pre>" & Server.HTMLEncode( "Original entry:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "  FileName: " & entry.FileName) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "  EntryID: " & entry.EntryID) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

' Save the EntryID for later use.
entryId = entry.EntryID

' Create another ZipEntry object.
set entry2 = Server.CreateObject("Chilkat.ZipEntry")

' Retrieve the same entry using EntryById.
success = zip.EntryById(entryId,entry2)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Entry retrieved by EntryID:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "  FileName: " & entry2.FileName) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "  EntryID: " & entry2.EntryID) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

' The filenames and EntryID values should match.
zip.CloseZip 

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

%>
</body>
</html>