SUB File ( Source AS String, Target AS String [ , Level AS Integer ] ) |
* 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 )
...