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

Demonstrates how to extract the contents of a GZip compressed Tar archive (.tgz or .tar.gz).

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

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

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

Dim gzip As New Gzip

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = gzip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox gzip.LastErrorText
    Exit Sub
End If

'  Ungzip and untar.
Dim bNoAbsolute As Long
bNoAbsolute = 1
Dim untarToDirectory As String
untarToDirectory = "c:/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
'  "c:/Windows/system32/something.exe" it will
'  be extracted to "c:/temp/test/Windows/system32/something.exe"
success = gzip.UnTarGz("test.tar.gz",untarToDirectory,bNoAbsolute)
If (success <> 1) Then
    MsgBox gzip.LastErrorText
    Exit Sub
End If