(Classic ASP) Zip Append StringBuilder

See more Zip Examples

Append the contents of a Chilkat StringBuilder object to a .zip.

Note: This example requires Chilkat v10.0.0 or later.

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")
zipPath = "c:/temp/qa_output/out.zip"

success = zip.NewZip(zipPath)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = Server.CreateObject("Chilkat.StringBuilder")
i = 0
Do While i < 100
    success = sb.AppendLine("This is a test",1)
    i = i + 1
Loop

success = zip.AppendSb("this_is_a_test.txt",sb,"utf-8")

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 1.") & "</pre>"

' Perhaps you want to add a file to an existing .zip
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Zip")
set zip2 = Server.CreateObject("Chilkat.Zip")
' Open the .zip we just wrote..
success = zip2.OpenZip(zipPath)

sb.Clear 
i = 0
Do While i < 100
    success = sb.AppendLine("This is a test 2",1)
    i = i + 1
Loop

success = zip2.AppendSb("this_is_a_test_2.txt",sb,"utf-8")

zipPath2 = "c:/temp/qa_output/out2.zip"
zip2.FileName = zipPath2
success = zip2.WriteZipAndClose()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip2.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>