File

SUB File ( Source AS String, Target AS String [ , Level AS Integer ] )

Когда вы выбрали compression driver, вы можете сжимать файл и помещать результат в другой файл, используя этот метод.

* Source : путь к исходному файлу (фалу для сжатия)

* Target : путь к целевому файлу (сжатому файлу). Если этот файл уже существует, он будет перезаписан.

* Level : уровень сжатия, может быть значением от Min до значения Max . Если вы не передаете этот параметр, будет использовано значение Default .

...
Dim Cp As New Compress

Cp.Type = "zlib"
Cp.File ( "/home/foo/README.TXT" , "/home/foo/README.TXT.gz" , Cp.Max )
...