(DataFlex) Zip -- Exclude Files Based on Wildcard Matching

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Variant vSaExcludes
    Handle hoSaExcludes
    Boolean iRecurse
    String sTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    Get ComNewZip Of hoZip "qa_output/x.zip" To iSuccess

    // 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.

    Get Create (RefClass(cComCkStringArray)) To hoSaExcludes
    If (Not(IsComObjectCreated(hoSaExcludes))) Begin
        Send CreateComObject of hoSaExcludes
    End
    Get ComAppend Of hoSaExcludes "*.cache" To iSuccess
    Get ComAppend Of hoSaExcludes "*.pdb" To iSuccess
    Get ComAppend Of hoSaExcludes "*/obj/*" To iSuccess
    Get ComAppend Of hoSaExcludes "*/win10-x64/*.exe" To iSuccess
    Get pvComObject of hoSaExcludes to vSaExcludes
    Send ComSetExclusions To hoZip vSaExcludes

    // Append promises of paths and files to be zipped.
    Move True To iRecurse
    Get ComAppendFiles Of hoZip "c:/AAWorkArea/ChilkatSampleProjects/*" iRecurse To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Create the zip from the file and directory promises added previously.
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure