(Classic ASP) Zip -- Exclude Files Based on Wildcard Matching

Demonstrates how to use the SetExclusions method to exclude matching files from being added to a .zip.

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 requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

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

success = zip.NewZip("qa_output/x.zip")

' Let's add files from the directory tree rooted at C:\AAWorkarea\ChilkatSampleProjects

' However.. we want to exclude all files ending in ".cache" or ".pdb" regardless of the sub-directory.
' Also exclude all files under any "obj" directory,
' and we also want to exclude any .exe found under a "win10-x64" directory.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringArray")
set saExcludes = Server.CreateObject("Chilkat.StringArray")
success = saExcludes.Append("*.cache")
success = saExcludes.Append("*.pdb")
success = saExcludes.Append("*/obj/*")
success = saExcludes.Append("*/win10-x64/*.exe")
zip.SetExclusions saExcludes

' Append promises of paths and files to be zipped.
recurse = 1
success = zip.AppendFiles("c:/AAWorkArea/ChilkatSampleProjects/*",recurse)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Create the zip from the file and directory promises added previously.
success = zip.WriteZipAndClose()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>