[megaloman]

Копирование/удаление по дате изменения файлов.

Код:

@Echo Off
cls
	Set /A DeltaDay=-14
	Set "BoxIn=D:\Box_In\*.*"
	Set "BoxOut=D:\Box_Arc"

	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "@Tdate=%%d" &Call Set "@Tdate=%%@Tdate:~6,2%%.%%@Tdate:~4,2%%.%%@Tdate:~0,4%%"
	Call :FromDate -14 %@Tdate% "yyyymmdd"

	Del "%BoxIn%\desktop.ini" /S /A
	Pushd "%BoxOut%" &&(
		>"Exclude.tmp" Xcopy "%BoxIn%" "%BoxOut%" /D:%yyyymmdd:~4,2%-%yyyymmdd:~6,2%-%yyyymmdd:~0,4% /S /Y /L
		For /F "usebackq delims=" %%f In (`Xcopy "%BoxIn%" "%BoxOut%" /S /Y /F /EXCLUDE:Exclude.tmp`) Do (
			Set "Out=%%f"
			Call :ReMove "%%Out: -> =" "%%"
		)
		Del "%BoxOut%\Exclude.tmp"
		FOR /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%" /S /B /A:D ^|Sort /R`) DO 2>nul Rd "%%d"
	)
pause
Exit /B

:ReMove
	If Exist "%~2" Del %1
Exit /B

:FromDate

rem Пересчет даты на заданное кол-во дней
rem В первом аргументе +- дни
rem Во втором аргументе дата в формате dd.mm.yyyy
rem В третем аргументе имя переменной в кавычках где получим новую дату в формате yyyymmdd 

rem Заимствовано http://forum.oszone.net/thread-186889.html
rem вызов Call :FromNow %DeltaDay% %Date% "yyyymmdd"
rem результат в перемменной %yyyymmdd%

 SetLocal
 Set "DT=%~2"
 Set yyyy=%DT:~-4%& set /a mm=100%DT:~3,2%%%100& set /a dd=100%DT:~,2%%%100
 Set /A JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
 Set /A L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001
 Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11
 Set /A J=J+2-12*L,I=100*(N-49)+I+L
 Set /A yyyy=I,mm=100+J,dd=100+K
 EndLocal& Set "%~3=%yyyy%%mm:~-2%%dd:~-2%"
GoTo :Eof