DataFlex

Zip

See more Zip Examples

Zip a directory tree. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    String sZipPath
    Boolean iRecurse
    String sTemp1

    Move False To iSuccess

    // This example assumes 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

    Move "c:/temp/myFiles.zip" To sZipPath

    // Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
    Get ComNewZip Of hoZip sZipPath To iSuccess

    // Append references to files to be zipped.
    Move True To iRecurse
    Get ComAppendFiles Of hoZip "c:/temp/files_to_zip/*" iRecurse To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the .zip and close the zip file (and clears the zip object).
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Successfully created " sZipPath

    // If the following files existed under c:/temp/files_to_zip

    // c:/temp/files_to_zip/aaa/pigs.json
    // c:/temp/files_to_zip/bbb/base64Cert.txt
    // c:/temp/files_to_zip/bbb/sub1/brasil_cert.pem
    // c:/temp/files_to_zip/bbb/sub2/penguins.gif
    // c:/temp/files_to_zip/bbb/sub2/starfish.jpg
    // c:/temp/files_to_zip/hamlet.xml
    // c:/temp/files_to_zip/hello.pdf

    // then the zip we created would contain:

    // aaa/pigs.json
    // bbb/base64Cert.txt
    // bbb/sub1/brasil_cert.pem
    // bbb/sub2/penguins.gif
    // bbb/sub2/starfish.jpg
    // hamlet.xml
    // hello.pdf


End_Procedure