![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
Append File and Rename within Zip
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> |
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.