Отправлено: 05.11.25 12:39. Заголовок: Библиотека SevenZip

Кто нибудь пользовался этим классом t7zip.prg ?
Он вроде удобный.

   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

Кто знает как:
1) использовать свой бегунок в этом классе ?
2) как исключать папки по маске или просто несколько папок ?
3) как задать свой список файлов для архивации игнорируя :aFiles := cInpDir + "\*.*" ?

 Отправлено: 05.11.25 13:19. Заголовок: Andrey пишет: 2) ка..

Andrey пишет:

цитата:

2) как исключать папки по маске или просто несколько папок ?

там вроде нет такого, поэтому в :aFiles, указываем все нужные дороги
Andrey пишет:

цитата:

3) как задать свой список файлов для архивации игнорируя :aFiles := cInpDir + "\*.*" ?

а так не катит разве ?
:aFiles := { cInpDir + "\*.*",cInpDir2 + "\*.doc"}

 Отправлено: 05.11.25 14:01. Заголовок: Dima пишет: там вро..

Dima пишет:

цитата:

там вроде нет такого

Да, верно.
Но я уже добавил такую возможность:
исключать папки по маске или просто несколько папок.
Пример использования:

цитата:

:aExcludeFiles := { "*.exe", "*.obj", "*.lib", "*.cdx", "test*", "hbtest*", "utils", "contrib" }