(VBScript) Create Compressed .tgz (.tar.gz) TAR Archive

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using GZip compression. The typical file extension used is .tgz or .tar.gz.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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")
set tar = 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:
tar.WriteFormat = "gnu"

' Add a directory tree to be included in the output TAR archive:
success = tar.AddDirRoot("/Users/chilkat/temp/abc123")
If (success <> 1) Then
    outFile.WriteLine(tar.LastErrorText)
    WScript.Quit
End If

' Create the compressed TAR archive.
' Note: You may use UNC paths, absolute, or relative paths.
success = tar.WriteTarGz("/Users/chilkat/testData/tar/abc123.tgz")
If (success <> 1) Then
    outFile.WriteLine(tar.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close