B4X

Zip -- Exclude Files Based on Wildcard Matching

See more Zip Examples

Demonstrates how to use the SetExclusions method to exclude matching files from being added to a .zip. B4X

Dim success As Boolean = False

Dim zip As ChilkatZip
zip.Initialize("zip")

success = zip.NewZip("qa_output/x.zip")

'  Let's add files from the directory tree rooted at C:\AAWorkarea\ChilkatSampleProjects

'  However.. we want to exclude all files ending in ".cache" or ".pdb" regardless of the sub-directory.
'  Also exclude all files under any "obj" directory,
'  and we also want to exclude any .exe found under a "win10-x64" directory.

Dim saExcludes As ChilkatStringArray
saExcludes.Initialize
saExcludes.Append("*.cache")
saExcludes.Append("*.pdb")
saExcludes.Append("*/obj/*")
saExcludes.Append("*/win10-x64/*.exe")
zip.SetExclusions(saExcludes)

'  Append promises of paths and files to be zipped.
Dim recurse As Boolean = True
success = zip.AppendFiles("c:/AAWorkArea/ChilkatSampleProjects/*", recurse)
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


'  Create the zip from the file and directory promises added previously.
success = zip.WriteZipAndClose
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


Log("Success.")