B4X

bz2 Compress File

Compress a file to the bz2 file format. B4X

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 ChilkatBz2
bz2.Initialize("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
    Log(bz2.LastErrorText)
    Return
End If


Log("Success.")