(DataFlex) Create TAR BZ2 Compressed Archive (.tar.bz2, .tbz, .tbz2, .tb2)

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using BZip2 compression. The typical file extensions used are .tar.bz2, .tbz2, .tbz, or .tb2.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoTar
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatTar)) To hoTar
    If (Not(IsComObjectCreated(hoTar))) Begin
        Send CreateComObject of hoTar
    End

    // The TAR component will produce a  GNU tar 1.13.x format
    // archive by default.
    // It is also possible to create PAX -- POSIX 1003.1-2001 format
    // or USTAR -- POSIX 1003.1-1988 format.
    // Set the WriteFormat property to "gnu", "pax", or "ustar" to
    // choose the output TAR format:
    Set ComWriteFormat Of hoTar To "gnu"

    // Add a directory tree to be included in the output TAR archive:
    Get ComAddDirRoot Of hoTar "/Users/chilkat/temp/abc123" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoTar To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Create the compressed TAR archive using BZip2.
    // Note: You may use UNC paths, absolute, or relative paths.
    Get ComWriteTarBz2 Of hoTar "/Users/chilkat/testData/tar/abc123.tar.bz2" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoTar To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure