[gora]

сразу удалялись файли, не за текущий месяц »

Код:

@Echo Off
SetLocal enabledelayedexpansion
Rem Здесь указана исходная папка
Set fl=c:\archive
Rem Здесь указана папка приемник
Set Out=c:\lastday

Set tMonth=%Date:~6,4%%Date:~3,2%
Set lday=00000000
For %%i In ("%fl%\*") Do (
	Set fdat=%%~ti
	Set fMonth=!fdat:~6,4!!fdat:~3,2!
	Set fdat=!fdat:~6,4!!fdat:~3,2!!fdat:~0,2!
	If Not %tMonth%==!fMonth! Del /F/Q "%%i"
	If !fdat! GTR !lday! Set lday=!fdat!
)
For %%i In ("%fl%\*") Do (
	Set fdat=%%~ti
	Set fdat=!fdat:~6,4!!fdat:~3,2!!fdat:~0,2!
	If !fdat!==!lday! Copy /Y "%%i" "%Out%\%%~nxi"
)
Exit