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
(Visual FoxPro) ZipSee more Zip ExamplesZip a directory tree.
LOCAL loZip LOCAL lnSuccess LOCAL lcZipPath LOCAL lnRecurse * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loZip = CreateObject('Chilkat_9_5_0.Zip') lcZipPath = "c:/temp/myFiles.zip" * Initialize the zip object, which also sets the FileName property to the path of the zip to be created. loZip.NewZip(lcZipPath) * Append references to files to be zipped. lnRecurse = 1 lnSuccess = loZip.AppendFiles("c:/temp/files_to_zip/*",lnRecurse) IF (lnSuccess = 0) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF * Write the .zip and close the zip file (and clears the zip object). lnSuccess = loZip.WriteZipAndClose() IF (lnSuccess = 0) THEN ? loZip.LastErrorText RELEASE loZip CANCEL ENDIF ? "Successfully created " + lcZipPath * If the following files existed under c:/temp/files_to_zip * c:/temp/files_to_zip/aaa/pigs.json * c:/temp/files_to_zip/bbb/base64Cert.txt * c:/temp/files_to_zip/bbb/sub1/brasil_cert.pem * c:/temp/files_to_zip/bbb/sub2/penguins.gif * c:/temp/files_to_zip/bbb/sub2/starfish.jpg * c:/temp/files_to_zip/hamlet.xml * c:/temp/files_to_zip/hello.pdf * then the zip we created would contain: * aaa/pigs.json * bbb/base64Cert.txt * bbb/sub1/brasil_cert.pem * bbb/sub2/penguins.gif * bbb/sub2/starfish.jpg * hamlet.xml * hello.pdf RELEASE loZip |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.