Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


Contributor


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

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


Iska,
Придумал достаточно идиотский способ, на вложенные файлы/папки он не действует
Код: Выделить весь код
@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "Mask=20??????."
	
	Set "TD=%Date%" 
	
	FOR /D %%d IN ("%BoxIn%\%Mask%") DO Set "DD=%%~nd" &Call :ReData %%DD:~6,2%%.%%DD:~4,2%%.%%DD:~0,4%% "%%d"
	Date %TD%
pause
GoTo :Eof

:ReData
	Date %1
	Ren %2 "%~nx2.tmp" ||Exit /B 2
	Md %2 &&(
		For /F "usebackq delims=" %%i IN (`2^>nul Dir /B "%~2.tmp"`) DO (
			Move "%~2.tmp\%%i" "%~2\" >nul
		)
		Rd "%~2.tmp"
	)
GoTo :Eof

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

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:55, 02-11-2018 | #13

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