Compress.Open (gb.compress)
Sub Open ( Path As String [ , Level As Integer ] )
允许打开存储于压缩格式中的一个文件进行写入。使用该方法之前必须选择适合压缩格式的压缩引擎。
-
Level_：压缩级别，从Min到Max之间的一个值。如果缺少该参数，使用缺省值。
Examples
..
Dim Cz As New Compress
Cz.Type = "bzlib2"
Cz.Open ( "/home/foo/compressed.bz2",Cz.Max )
PRINT #Cz , "Hello, this is a compressed file,"
PRINT #Cz , "using bzlib2 algorithm. Remember that"
PRINT #Cz , "highest compression level provides"
PRINT #Cz , "a little output file, but requires"
PRINT #Cz , "more CPU time"
CLOSE #Cz
...