Распаковка архивов

[bluberi]

Версия AutoIt: 3.3.14.2

Описание: Срипт

Примечания: автоматизация распаковки архива

Имеется 2 папки = папка1 и папка2 - нужно соблюсти условие - если в первой папке есть zip архив - распаковать его в папку 2
но бывает и rar архив поступает и 7 zip - а потому и с RAR и 7 zip так же - имя архива произвольное - светлые головы как это в код оформить
по сути три условия
если в папке1 =zip - распаковать в папку 2
если в папке1 =rar - распаковать в папку 2
если в папке1 =7zip - распаковать в папку 2
предполагаю для этого надо что-бы с системе стоял 7zip ?

 

[ra4o]

Вот так можно, UDF и dll прикрепил в архиве:

Спойлер

#include <7ZipM.au3>
#include <File.au3>
#include <UnRAR.au3>

Local $Folder_1 = @ScriptDir & '\1'; исходная папка
Local $Folder_2 = @ScriptDir & '\2';папка для распаковки

;для файлов zip и 7z
Local $aAllFiles=_FileListToArrayRec($Folder_1, '*.zip;*.7z' , 1)
If Not @error Then
	For $i = 1 To $aAllFiles[0]
		_7ZIPExtract(0,$Folder_1&'\'&$aAllFiles[$i],$Folder_2)
	Next
EndIf

;для файлов rar
Local $aAllRarFiles=_FileListToArrayRec($Folder_1, '*.rar' , 1)
If Not @error Then
	For $i = 1 To $aAllRarFiles[0]
		$hArchive = _RAR_OpenArchive($Folder_1&'\'&$aAllRarFiles[$i])
		_Rar_UnpackArchive($hArchive, $Folder_2 )
	Next
EndIf

Ссылка на Udf 7ZipM.au3 и её dll https://www.autoitscript.com/forum/topic/85094-7zip/
Архив битый качается, поищите на ддругих источниках, я прикрепить не могу из-за ограничений на размер файлов :(

 

[sergioz]

тут проще батник сделать

for /f %%i in (папка1\*.zip) do (%ProgramFiles%\7-Zip\7z.exe x %%i  -o папка2)
for /f %%i in (папка1\*.7z) do (%ProgramFiles%\7-Zip\7z.exe x %%i  -o папка2)
for /f %%i in (папка1\*.rar) do (%ProgramFiles%\7-Zip\7z.exe x %%i  -o папка2)

 

[Alofa]

... Архив битый качается, поищите на ддругих источниках...

Другие источники:
- Из темы
- Полный комплект справки [RU]
- Файловый архив форума


Добавлено:

Сообщение автоматически объединено: 24 Ноя 2017

тут проще батник сделать...

Да, но перед этим нужно установить 7-Zip.