![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) Zip a Directory TreeDemonstrates how to zip an entire directory tree into a .zip archive.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim zip As New Chilkat.Zip Dim success As Boolean success = zip.NewZip("test.zip") If (success <> True) Then System.DebugLog(zip.LastErrorText) Return End If // Append a directory tree. The call to 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 // is called, the referenced files are streamed and compressed // into the .zip output file. Dim recurse As Boolean recurse = True success = zip.AppendFiles("c:/temp/a/*",recurse) If (success <> True) Then System.DebugLog(zip.LastErrorText) Return End If success = zip.WriteZipAndClose() If (success <> True) Then System.DebugLog(zip.LastErrorText) Return End If System.DebugLog("Zip Created!") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.