Function CompressFile(ByRef filename As String, ByRef filenameDest As String,ByVal level As Long=5) As Long
Позволяет сжимать(архивировать) файл. Возвращает размер сжатого файла.
filename - имя исходного файла для сжатия
filenameDest - имя конечного файла
level - уровень сжатия (1-9). 1 самое быстрое, но и самое плохое сжатие.
Windows , Linux
#Include "window9.bi"
? CompressFile("1.avi","1.zip")
? DeCompressFile("1.zip","2.avi")
Sleep
Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator