Compress.Open (gb.compress)
Sub Open ( Path As String [ , Level As Integer ] )
Permite que você abra um arquivo para escrita no formato comprimido. Antes de usar este método você deve selecionar o driver de compressão adequado.
-
Level: nível de compressão, pode ser um valor entre Min e o valor Max. Se você não passar este parâmetro, o valor padrão será usado.
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
...