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) Example for the Zip AppendNewDir FunctionSee more Zip ExamplesDemonstrates the Zip AppendNewDir function.
integer li_rc oleobject loo_Zip integer li_Success string ls_ZipPath oleobject loo_Entry // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Zip = create oleobject li_rc = loo_Zip.ConnectToNewObject("Chilkat_9_5_0.Zip") if li_rc < 0 then destroy loo_Zip MessageBox("Error","Connecting to COM object failed") return end if ls_ZipPath = "c:/temp/test.zip" // Initialize the zip object, which also sets the FileName property to the path of the zip to be created. loo_Zip.NewZip(ls_ZipPath) // AppendNewDir is used when you wish to add a directory to the zip // such that when the zip is unzipped, the directory will be created // even if it contains no files. loo_Entry = loo_Zip.AppendNewDir("dirA") destroy loo_Entry loo_Entry = loo_Zip.AppendNewDir("dirB") destroy loo_Entry loo_Entry = loo_Zip.AppendNewDir("dirC") destroy loo_Entry // Write the zip, which contains 3 empty directories: dirA, dirB, dirC. loo_Zip.FileName = ls_ZipPath li_Success = loo_Zip.WriteZipAndClose() if li_Success = 0 then Write-Debug loo_Zip.LastErrorText destroy loo_Zip return end if Write-Debug "Success." destroy loo_Zip |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.