Доброго времени суток, товарищи программисты!
Помогите решить проблему - у функции не получается архивировать в zip формате (в штатном 7z всё работает)
Тобишь при добавлении ключа параметра изменения формата архива "-tzip" скрипт не архивирует совсем
:stars: никак не могу понять где ошибка... заранее спасибо!
Помогите решить проблему - у функции не получается архивировать в zip формате (в штатном 7z всё работает)
Тобишь при добавлении ключа параметра изменения формата архива "-tzip" скрипт не архивирует совсем
:stars: никак не могу понять где ошибка... заранее спасибо!
Код:
;$FormatFile = Тип файла
; $FileFolder = 0 - (по умолчанию) Возвращает файлы и папки вместе: 1 - Возвращает только файлы, 2 - Возвращает только папки
Func Archiv($path,$FileFolder,$FormatFile)
Local $arrayFile, $err, $a
$arrayFile=_FileListToArray($path,$FormatFile,$FileFolder) ;Создаёт список файлов и папок указаного пути
If @Error Then Exit
For $a=1 To $arrayFile[0]
If $arrayFile[$a] <> @ScriptName Then Archivate($path,$arrayFile[$a])
Next
EndFunc
Func Archivate($path, $File)
Local $7z, $ver, $err, $ArchOptions
$ArchOptions = ' -tzip -mmt -ms=off' ;Настройки параметров архивации
if $7z = StringReplace(RegRead('HKCU\Software\7-Zip','Path')&'\','\\','\') & '7z.exe' Then
Else
$7z = @ProgramFilesDir&'\7-Zip\7z.exe'
EndIf
$ver = StringReplace(FileGetVersion($7z),'.','')
If $ver > 92500 Then $ArchOptions &= ' -sdel'
$err = RunWait('"' & $7z & '" a -mx9 "' &$path &'\'& $File & '.zip" "' &$path &'\'& $File & '"' & $ArchOptions)
If $err = 0 AND $ver <= 92500 Then FileDelete($path &'\'&$File)
EndFunc