Compress.Open (gb.compress)
Sub Open ( Path As String [ , Level As Integer ] )
Vous permet d’ouvrir un fichier pour écrire en format compressé. Préalablement à l’utilisation de cette méthode vous devez sélectionner le pilote de compression approprié.
-
Level: est le niveau de compression. Ce peut être une valeur entre valeur Min et valeur Max. Si vous ne passez pas ce paramètre, la valeur par défaut sera utilisée.
Exemples
..
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
...