Unzip .bz2 (BZip2) Compressed File

Unzips a .bz2 compressed file.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim bz2 As New Chilkat.Bz2()

Dim success As Boolean

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


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