Unzip .bz2 (BZip2) Compressed File

Unzips a .bz2 compressed file.

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 bz2 As New ChilkatBz2

Dim success As Long

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

'  The .bz2 file format is not an archive.  Only a single
'  file may be compressed / decompressed.  It is for this reason that you'll
'  often see TAR files compressed with BZip2 (i.e. a file
'  ending in .tar.bz2.

'  This example will uncompress an XML file.
'  The 1st arg is the file to decompress, the 2nd arg is
'  the output filename.
success = bz2.UncompressFile("hamlet.xml.bz2","hamlet.xml")
If (success <> 1) Then
    MsgBox bz2.LastErrorText
    Exit Sub
End If

'  There is no limitation on the size of files that may be uncompressed.
MsgBox "Success!"