(Classic ASP) Add Multiple Files to a ZIP Using AppendFiles

See more Zip Examples

This example demonstrates how to use the AppendFiles method to add multiple files matching wildcard patterns to a ZIP archive.

The example adds:

All .txt files from one directory.
All .xml files recursively from another directory tree.

The AppendFiles method adds references to matching files in the local filesystem. The files are not actually read or compressed until a Write* method is called.

When recursive mode is enabled (recurse = 1), relative subdirectory paths are preserved within the ZIP archive.

For example, suppose the local filesystem contains the following directory tree:

c:/data/invoices/2024/january/inv001.xml
c:/data/invoices/2024/january/inv002.xml
c:/data/invoices/2024/february/inv003.xml

And the following call is made:

zip.AppendFiles("c:/data/*.xml",1);

Then the following paths will be stored in the ZIP archive:

invoices/2024/january/inv001.xml
invoices/2024/january/inv002.xml
invoices/2024/february/inv003.xml

The portion of the path preceding the wildcard root (c:/data/) is not stored in the ZIP archive.

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

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

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

' Add all .txt files from c:/reports.
' Subdirectories are not included because recurse=ckfalse.
success = zip.AppendFiles("c:/reports/*.txt",0)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add all .xml files recursively from c:/data.
' Relative subdirectory paths are preserved within the ZIP archive.
success = zip.AppendFiles("c:/data/*.xml",1)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Write the ZIP archive to disk and close it.
' The source files are consumed at this time.
success = zip.WriteZipAndClose()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "ZIP archive created successfully.") & "</pre>"

%>
</body>
</html>