**(Classic ASP) Unzip Files Matching a Pattern (such as *.xml)**

Example code to unzip Files Matching a Pattern (such as *.xml)

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>
<%
' This example works with the .zip located at http://www.example-code.com/data/test.zip

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' First, let's download the .zip
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")
success = http.Download("http://www.example-code.com/data/test.zip","qa_test/test.zip")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Zip")
set zip = Server.CreateObject("Chilkat.Zip")

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

' Show what's in the .zip by getting the directory as XML.
zipContentsXml = zip.GetDirectoryAsXML()
If (zip.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

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

' In this case, the contents of our .zip look like this:
' <?xml version="1.0" encoding="utf-8" ?>
' <zip_contents>
'     <dir name="test">
'         <dir name="abc">
'             <dir name="123">
'                 <file>ecc_public.pem</file>
'                 <file>starfish.jpg</file>
'             </dir>
'             <file>comodo-certificates.pem</file>
'             <file>pigs.xml</file>
'         </dir>
'         <file>COMODORSACertificationAuthority.crt</file>
'         <file>hamlet.xml</file>
'     </dir>
' </zip_contents>

' ------------------------------------------------------------------------
' If we wish to unzip only .xml files, use "*.xml" for the pattern\
' Unzip to the "qa_output" directory relative to our current working directory.
' (You may unzip to an absolute path by passing an absolute path, such as "/someDir" or
' "C:/someDir", etc.)
' This will unzip only the .xml files.  The relative directory structure within
' the .zip will be created in the local filesystem under the unzip directory
' path passed in the first argument, which in this case is "qa_output".
count = zip.UnzipMatching("qa_output","*.xml",1)
If (count < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "unzipped " & count & " matching file(s).") & "</pre>"

' ------------------------------------------------------------------------
' If we wish to unzip only files under the "123" directory, we can do this:
count = zip.UnzipMatching("qa_output2","*/123/*",1)
If (count < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "unzipped " & count & " matching file(s).") & "</pre>"

' ------------------------------------------------------------------------
' If no asterisk character is used, then the match must be exact.
' For example, to unzip "test/hamlet.xml" we must pass the exact path
' as it is in the .zip.  We cannot just pass "hamlet.xml".
count = zip.UnzipMatching("qa_output3","test/hamlet.xml",1)
If (count < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "unzipped " & count & " matching file(s).") & "</pre>"

' ------------------------------------------------------------------------
' If we want to unzip any file named "hamlet.xml" found in any sub-directory...
count = zip.UnzipMatching("qa_output4","*/hamlet.xml",1)
If (count < 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "unzipped " & count & " matching file(s).") & "</pre>"

%>
</body>
</html>