Append File and Rename within Zip

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

How to append an additional file to a .zip and rename it within the .zip.

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

'  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

'  Open an existing .zip.
'  Note: Opening a zip does not read the entire zip into memory.
'  It simply opens the zip and makes it ready for unzipping
'  or retrieving information and/or data.
success = zip.OpenZip("a.zip")
If (success <> 1) Then
    Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

End If

'  Save the current number of entries.
numEntries = zip.NumEntries

'  Append a new file to the .zip.
'  The new entry is at index numEntries (indexing begins at 0).
'  Note: The AppendOneFileOrDir simply adds a reference to the
'  file to the zip object.  The file is not actually read
'  or physically added to the .zip file until the WriteZip or
'  WriteZipAndClose method is called.
saveExtraPath = 0
success = zip.AppendOneFileOrDir("hamlet.xml",saveExtraPath)
If (success <> 1) Then
    Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

End If

'  Get the entry we just added:

Set entry = zip.GetEntryByIndex(numEntries)

'  Change the filename.
'  The zip component remembers the file referenced in the filesystem.
'  When the zip is written, the "hamlet.xml" file is read and
'  compressed, but the filename within the zip will be "shakespearePlay.xml".
entry.FileName = "shakespearePlay.xml"

'  Write the .zip
'  The Chilkat Zip component always writes to a temporary file
'  first.  This is to ensure that (in cases like this), if something
'  goes wrong we don't lose the original .zip.  If the write
'  finishes without error, it is moved to the destination
'  file, thus overwriting it.  The TempDir property controls
'  the directory where the temp zip is written.
success = zip.WriteZipAndClose()
If (success <> 1) Then
    Response.Write Server.HtmlEncode(zip.LastErrorText) & "<br>"

End If

%>
</body>
</html>