Untar a .tar.gz (.tgz) Compressed Archive

Untar a .tar.gz (.tgz) GZIP compressed archive.

Download 32-bit Chilkat TAR ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

'  Important: It is helpful to send the contents of the
'  tar.LastErrorText property when requesting support.

'  Untar a .tar archive.
set tar = CreateObject("Chilkat.Tar")

'  Any string automatically begins the 30-day trial.
success = tar.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    outFile.WriteLine(tar.LastErrorText)
    WScript.Quit
End If

'  Untar into c:/temp/untarDir.  The directory tree(s) contained
'  within the TAR archive will be re-created rooted at this
'  directory.
tar.UntarFromDir = "/Users/chilkat/temp/untarDir"

'  If any filepaths within the Tar archive are absolute,
'  automatically make them relative by removing the first
'  forward or backward slash.  This protects from untarring
'  files to unexpected locations.
tar.NoAbsolutePaths = 1

success = tar.UntarGz("/Users/chilkat/testData/tar/abc123.tar.gz")
If (success <> 1) Then
    outFile.WriteLine(tar.LastErrorText)
Else
    outFile.WriteLine("Success")
End If

outFile.Close