Что нового

[Файловая система] Создание архива из папки с исключением некоторых файлов

rollex

Новичок
Сообщения
66
Репутация
1
У меня есть пака с именем Папка, в ней есть папка Старое и какое-то количество файлов изображений. Эти изображения создаются при сканировании бумаг, и в некоторый момент их становится очень много, что усложняет поиск необходимой скан-копии. Мне необходимо разом создать архив из всех изображений, пропустив при этом папку Старое (имя архиву присваивается относительно даты и времени), поместить этот архив в эту самую папку Старое, и удалить все файлы из папки Папка, оставив только папку Старое.

--Папка
----Старое
----Файл1
----Файл2
----...
----ФайлN

 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Папка Папка, должна быть рядом со скриптом:
Код:
#include <Zip.au3>
#include <File.au3>

$ZIP = _Zip_Create(@ScriptDir & '\Папка\Старое\' & @MDAY & '-' & @MON & '-' & @YEAR & '-' & @HOUR & '-' & @MIN & '-' & @SEC & '.zip')

$Files = _FileListToArray(@ScriptDir & '\Папка\', '*', 1)
For $i = 1 To $Files[0]
	$ADD = _Zip_AddFile($ZIP, @ScriptDir & '\Папка\' & $Files[$i])
Next

FileDelete(@ScriptDir & '\Папка\*.*')
MsgBox(0, 'Test', 'Архив создан!')


Библиотека ZIP.au3:
http://www.autoitscript.com/forum/topic/73425-zipau3-udf-in-pure-autoit/
 
Автор
R

rollex

Новичок
Сообщения
66
Репутация
1
Zaramot
Архив создается, но файлы в него не добавляются. В итоге после месаджбокса имею архив в папке Старое, например 09-01-2012-11-33-44.zip размером в 22 байта. :(
 

Dm666

Осваивающий
Сообщения
221
Репутация
48
rollex
А Winrar на компьтере имеется? Им было бы просто:
Код:
#include <Date.au3>
Dim $sPath = "c:\Temp\1\" ; путь 
Dim $sExt = "*.jpg" ; расширение изображений
ShellExecute ("Winrar.exe","a -ep -df "& $sPath&"Старое\" & _NowDate()&".rar"& " "& $sPath &$sExt)
 
Верх