(DataFlex) Unzip a .zip Archive

Demonstrates how to open a .zip archive and unzip. The Unzip method extracts the files and directories from a .zip archive and recreates the directory tree rooted at the directory path passed to Unzip.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Integer iUnzipCount
    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 ComOpenZip Of hoZip "my_files.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Returns the number of files and directories unzipped.
    // Unzips to /my_files, re-creating the directory tree
    // from the .zip.
    Get ComUnzip Of hoZip "/my_files" To iUnzipCount
    If (iUnzipCount < 0) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Success!"
    End



End_Procedure