(DataFlex) Create Zip Excluding Files Matching Patterns

How to create a .zip archive excluding (skipping) files that match a set of wildcarded patterns.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Variant vSa
    Handle hoSa
    Boolean iRecurse
    Boolean iSuccess
    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 "test.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Create a string array object with our set of filename patterns
    // to be excluded:
    Get Create (RefClass(cComCkStringArray)) To hoSa
    If (Not(IsComObjectCreated(hoSa))) Begin
        Send CreateComObject of hoSa
    End
    Get ComAppend Of hoSa "*.bak" To iSuccess
    Get ComAppend Of hoSa "*.tmp" To iSuccess

    // Tell the zip object to use these exclusions:
    Get pvComObject of hoSa to vSa
    Send ComSetExclusions To hoZip vSa

    // Append a directory tree.  The 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,
    // or WriteExe, etc.) is called, the files are compressed
    // and encrypted.
    Move True To iRecurse
    Get ComAppendFiles Of hoZip "/temp/a/*" iRecurse To iSuccess

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Zip Created!"


End_Procedure