SUB Open ( Path AS String ) |
Исходный файл должен быть исправным файлом, что означает, сжатый тем же самым алгоритмом, что вы выбрали в свойстве Type .
..
Dim Cz As New Uncompress
Dim Buf As String
Cz.Type = "bzlib2"
Cz.Open ( "/home/foo/compressed.bz2" )
LINE INPUT #Cz , Buf
...
CLOSE #Cz
...