![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java JavaScript 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
(VB.NET) Exclude Multiple Directories When Adding Files to a ZIPSee more Zip Examples This example demonstrates how to use the The This is useful for excluding directories such as:
Call Suppose the local filesystem contains: After excluding The resulting ZIP archive contains: Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean = False success = False Dim zip As New Chilkat.Zip success = zip.NewZip("project.zip") If (success = False) Then Debug.WriteLine(zip.LastErrorText) Exit Sub End If ' Exclude several directory names. ' ' Any directory matching one of these names will be skipped ' during recursive file appending. zip.ExcludeDir("bin") zip.ExcludeDir("obj") zip.ExcludeDir(".git") zip.ExcludeDir("node_modules") ' Recursively append all files beneath c:/project. ' ' Because saveExtraPath = True, the ZIP paths will ' include "project/" as the leading directory. Dim recurse As Boolean = True Dim saveExtraPath As Boolean = True Dim archiveOnly As Boolean = False Dim includeHidden As Boolean = True Dim includeSystem As Boolean = False success = zip.AppendFilesEx("c:/project",recurse,saveExtraPath,archiveOnly,includeHidden,includeSystem) If (success = False) Then Debug.WriteLine(zip.LastErrorText) Exit Sub End If ' Write the ZIP archive. success = zip.WriteZipAndClose() If (success = False) Then Debug.WriteLine(zip.LastErrorText) Exit Sub End If Debug.WriteLine("ZIP archive created successfully.") |
||||
© 2000-2026 Chilkat Software, Inc. All Rights Reserved.