|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
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.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 ' 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-2012 Chilkat Software, Inc. All Rights Reserved.
