(Visual FoxPro) Create .taz, .tar.Z TAR Archive

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.

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

LOCAL loTar
LOCAL lnSuccess
LOCAL loUc

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Tar')
loTar = 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:
loTar.WriteFormat = "gnu"

* Add a directory tree to be included in the output TAR archive:
lnSuccess = loTar.AddDirRoot("/Users/chilkat/temp/abc123")
IF (lnSuccess <> 1) THEN
    ? loTar.LastErrorText
    RELEASE loTar
    CANCEL
ENDIF

* First write a .tar, then compress to a .Z using UnixCompress.
lnSuccess = loTar.WriteTar("/Users/chilkat/testData/tar/abc123.tar")
IF (lnSuccess <> 1) THEN
    ? loTar.LastErrorText
    RELEASE loTar
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.UnixCompress')
loUc = CreateObject('Chilkat.UnixCompress')

lnSuccess = loUc.CompressFile("/Users/chilkat/testData/tar/abc123.tar","/Users/chilkat/testData/tar/abc123.tar.Z")
IF (lnSuccess <> 1) THEN
    ? loUc.LastErrorText
ELSE
    ? "Success."
ENDIF

RELEASE loTar
RELEASE loUc