(VBScript) GZip Tar Extract (.tgz or .tar.gz)

Demonstrates how to extract the contents of a GZip compressed Tar archive (.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.Gzip")
set gzip = CreateObject("Chilkat.Gzip")

' Ungzip and untar.
bNoAbsolute = 1

untarToDirectory = "/temp/test"
' bNoAbsolute tells the component to convert all absolute paths
' found in the .tar to relative paths.   For example, if the .tar
' contains a file with an absolute path such as
' "/usr/bin/something.exe" it will
' be extracted to "/temp/test/usr/bin/something.exe"
success = gzip.UnTarGz("test.tar.gz",untarToDirectory,bNoAbsolute)
If (success <> 1) Then
    outFile.WriteLine(gzip.LastErrorText)
    WScript.Quit
End If


outFile.Close