Что нового

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

bluberi

Новичок
Сообщения
1
Репутация
0
Версия 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

AutoIT Гуру
Сообщения
1,165
Репутация
246
Вот так можно, 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/
Архив битый качается, поищите на ддругих источниках, я прикрепить не могу из-за ограничений на размер файлов :(
 

Вложения

  • UnRar.7z
    74.9 КБ · Просмотры: 12

sergioz

Знающий
Сообщения
39
Репутация
5
тут проще батник сделать


Код:
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)
 
A

Alofa

Гость
ra4o сказал(а):
... Архив битый качается, поищите на ддругих источниках...
Другие источники:
- Из темы
- Полный комплект справки [RU]
- Файловый архив форума


Добавлено:
Сообщение автоматически объединено:

sergioz сказал(а):
тут проще батник сделать...
Да, но перед этим нужно установить 7-Zip.
 
Верх