Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Rename a filename within the .zip before zipping.Demonstrates how to rename a file within a .zip prior to writing it. <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 zip.LastErrorText & "<br>" End If success = zip.NewZip("test.zip") If (success <> 1) Then Response.Write zip.LastErrorText & "<br>" End If ' Append a directory tree. The AppendFiles does ' not read the file contents or append them to the zip ' object in memory. It simply appends references ' to the files so that when WriteZip (or WriteZipAndClose, ' or WriteExe, etc.) is called, the files are compressed ' and encrypted. recurse = 1 zip.AppendFiles "c:/temp/a/*",recurse Set entry = zip.GetEntryByName("Setup.exe") If (entry Is Nothing ) Then Response.Write "Failed to find entry in .zip" & "<br>" End If ' Change the filename of this entry. ' When the .zip is written, the "Setup.exe" is streamed ' in from the filesystem and compressed into the .zip, ' and named as "install.exe" entry.FileName = "install.exe" success = zip.WriteZipAndClose() If (success <> 1) Then Response.Write zip.LastErrorText & "<br>" End If Response.Write "Zip Created!" & "<br>" %> </body> </html> |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.