(Classic ASP) Add Files to a ZIP Using AddFile

See more Zip Examples

This example demonstrates how to use the AddFile method to add files from the local filesystem to a ZIP archive.

The example adds two files:

One file with its relative directory path preserved
One file stored using only its filename

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

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("addFileExample.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add a file and preserve its relative directory structure
' within the ZIP archive.
' 
' The following file:
'     c:/projects/app/docs/readme.txt
' 
' Will be stored in the ZIP as:
'     projects/app/docs/readme.txt
' 
saveExtraPath = 1
success = zip.AddFile("c:/projects/app/docs/readme.txt",saveExtraPath)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add a file using only the filename in the ZIP archive.
' 
' The following file:
'     c:/temp/logo.png
' 
' Will be stored in the ZIP as:
'     logo.png
' 
saveExtraPath = 0
success = zip.AddFile("c:/temp/logo.png",saveExtraPath)
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>