(VBScript) Untar a .tar.bz2 Compressed Archive

Untar a .tar.bz2 compressed archive.

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.

' Untar a .tar archive.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Tar")
set tar = CreateObject("Chilkat.Tar")

' 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.UntarBz2("/Users/chilkat/testData/tar/abc123.tar.bz2")
If (success <> 1) Then
    outFile.WriteLine(tar.LastErrorText)
Else
    outFile.WriteLine("Success")
End If


outFile.Close