Имя пользователя:
Пароль:
 

Название темы: Архивирование
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
@Echo Off &Cls
	Set "BoxIn=Z:\logs"
	Set "BoxArc=Z:\Box_Arc"
	Set "Log=Z:\archieve\all.log"
	Set /A N=3
	
	Set Arc="C:\Program Files\WinRar\WinRAR.exe" a -r -df -ibck

	For /F "usebackq skip=%N% delims=" %%d In (`2^>nul Dir "%BoxIn%\" /AD /B /O-D /TC ^|FindStr /R /C:"[0-3][0-9]\.[0-1][0-9]\.20[0-9][0-9]"`) Do (
		Call Set "Msg=%%Date%% %%Time%% "%BoxIn%\%%d"
		%Arc% "%BoxArc%\%%d.rar" "%BoxIn%\%%d" &&Call Set "Msg=%%Msg%% "%BoxArc%\%%d.rar"
		Call Echo %%Msg%%>>%Log%
	)
Pause
Exit /B
Пути укажите свои

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 15:49, 02-05-2023 | #2

Название темы: Архивирование