Replace a File within a Zip

Demonstrates how to replace a file within a .zip

Download Chilkat Zip ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set zip = Server.CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

End If

success = zip.OpenZip("a.zip")
If (success <> 1) Then
    Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

End If

'  Locate the entry:
Set entry = zip.FirstMatchingEntry("*HelloWorld123.txt")

If (Not (entry Is Nothing )) Then

    zip.DeleteEntry entry

    saveExtraPath = 0
    success = zip.AppendOneFileOrDir("c:/temp/HelloWorld123.txt",saveExtraPath)
    If (success <> 1) Then
        Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

    End If

    success = zip.WriteZipAndClose()
    If (success <> 1) Then
        Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

    End If

    Response.Write Server.HtmlEncode("Entry replaced and .zip re-written.") & "<br>"

Else
    Response.Write Server.HtmlEncode("Entry not found.") & "<br>"
End If

%>
</body>
</html>

Need a specific example? Send a request to support@chilkatsoft.com