Xbase++

Create .taz, .tar.Z TAR Archive

See more Tar Archive Examples

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using Unix "Z" compression. The typical file extensions used are .tar.Z and .taz. Xbase++

LOCAL nSuccess
LOCAL oTar
LOCAL oUc

nSuccess := 0

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

oTar := CreateObject("Chilkat.Tar")

//  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:
oTar:WriteFormat := "gnu"

//  Add a directory tree to be included in the output TAR archive:
nSuccess := oTar:AddDirRoot("/Users/chilkat/temp/abc123")
IF (nSuccess != 1)
    ? oTar:LastErrorText
    oTar:destroy()
    RETURN
ENDIF

//  First write a .tar, then compress to a .Z using UnixCompress.
nSuccess := oTar:WriteTar("/Users/chilkat/testData/tar/abc123.tar")
IF (nSuccess != 1)
    ? oTar:LastErrorText
    oTar:destroy()
    RETURN
ENDIF

oUc := CreateObject("Chilkat.UnixCompress")

nSuccess := oUc:CompressFile("/Users/chilkat/testData/tar/abc123.tar", "/Users/chilkat/testData/tar/abc123.tar.Z")
IF (nSuccess != 1)
    ? oUc:LastErrorText
ELSE
    ? "Success."
ENDIF

oTar:destroy()
oUc:destroy()