Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Append Dir Tree to Existing Zip w/out Rewriting Entire ZipDemonstrates how to use the QuickAppend method to append a directory tree to an existing .zip archive. This method works by editing the existing .zip -- it does not rewrite or recompress the contents of the existing .zip. It is the fastest way to append additional files to a pre-existing large .zip archive. Note: The QuickAppend method is new and available in the pre-release downloads, or in official releases dated after 6-October-2007.
integer li_rc oleobject loo_Zip integer li_Success integer li_Recurse // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Zip = create oleobject // Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0 li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip") if li_rc < 0 then destroy loo_Zip MessageBox("Error","Connecting to COM object failed") return end if // The NewZip method only initializes the Zip object -- it does // not create or write a .zip file. li_Success = loo_Zip.NewZip("notUsed.zip") if li_Success <> 1 then Write-Debug loo_Zip.LastErrorText destroy loo_Zip return end if // Add a references to all files in a directory tree. // Note: this does not read or compress the file contents -- // it simply adds file references to the zip object. li_Recurse = 1 li_Success = loo_Zip.AppendFiles("c:/temp/abc123/*",li_Recurse) if li_Success <> 1 then Write-Debug loo_Zip.LastErrorText destroy loo_Zip return end if // Appends the contents of the zip object to the preExisting.zip // zip archive. preExisting.zip is opened, and the files // referenced by this zip object are streamed in, compressed, // and appended to the end of the archive. li_Success = loo_Zip.QuickAppend("preExisting.zip") if li_Success <> 1 then Write-Debug loo_Zip.LastErrorText destroy loo_Zip return end if Write-Debug "Success!" // Note: Additional files, directory trees, or in-memory data // can be appended by calling AppendOneFileOrDir, AppendFiles, // AppendString, AppendData, etc. multiple times. // Whatever files and/or in-memory data that are referenced by // this zip object will be appended to preExisting.zip when // QuickAppend is called destroy loo_Zip |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.