Форум » [x]Harbour » Библиотека SevenZip » Ответить

Библиотека SevenZip

Andrey: Кто нибудь пользовался этим классом t7zip.prg ? Он вроде удобный. [pre2] cCommand := 'a ' cCommand += '-t7z ' // In 7ZIP format cCommand += '-m0=LZMA2 ' // compression method CMP METHOD_LZMA2 cCommand += '-mmt ' // number of threads WITH OBJECT T7Zip():New() :cArcName := cArcFile :aFiles := cInpDir + "\*.*" :nCompressionMethod := 2 // "LZMA2" :lRecursive := .T. // .T. = include sub-dirs :aExcludeFiles := { ".exe", ".obj", ".lib", ".cdx" } // игнорирование файлов по маске :lShowProcessDlg := .T. :lSolid := .F. :lMultiCPU := .T. :cPassword := "12345" // пароль на архив :Create() ? '[T7ZIP] command:', :cCommand ? '[T7ZIP] RETURN ERROR:', :nError, :ErrorDescription END[/pre2] Кто знает как: 1) использовать свой бегунок в этом классе ? 2) как исключать папки по маске или просто несколько папок ? 3) как задать свой список файлов для архивации игнорируя :aFiles := cInpDir + "\*.*" ?

Ответов - 2

Dima: Andrey пишет: 2) как исключать папки по маске или просто несколько папок ? там вроде нет такого, поэтому в :aFiles, указываем все нужные дороги Andrey пишет: 3) как задать свой список файлов для архивации игнорируя :aFiles := cInpDir + "\*.*" ? а так не катит разве ? :aFiles := { cInpDir + "\*.*",cInpDir2 + "\*.doc"}

gfilatov2002: Dima пишет: там вроде нет такого Да, верно. Но я уже добавил такую возможность: исключать папки по маске или просто несколько папок. Пример использования: :aExcludeFiles := { "*.exe", "*.obj", "*.lib", "*.cdx", "test*", "hbtest*", "utils", "contrib" }



полная версия страницы