Sample code for 30+ languages & platforms
VB.NET

bz2 Compress File

Compress a file to the bz2 file format.

Chilkat VB.NET Downloads

VB.NET
Dim success As Boolean = False

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim bz2 As New Chilkat.Bz2

' Compress the file qa_data/hamlet.xml to create qa_output/hamlet.bz2
success = bz2.CompressFile("qa_data/hamlet.xml","qa_output/hamlet.bz2")
If (success <> True) Then
    Debug.WriteLine(bz2.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Success.")