[megaloman]

за последние 10 дней »

А что с остальными? Как часто Вы собрались архивировать файлы? Один раз ручками более старые файлы куда-то деть слабо? Или они вечно будут болтаться?
Без ограничения по дням

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "BoxArc=Z:\Box_Arc"
	Set "Mask=*_?????????.m"
	Set FMask="^.*_[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\.m"
	Set /A NN=9

	Set "ARC=C:\Program Files\7-Zip.21beta\7z.exe"
 
	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D ^|FindStr /I /R /C:%FMask%`) Do (
		If Exist "%BoxIn%\%%f" (
			Set "Name=%%~nf"
			Call Set "Name=%%Name:~-%NN%%%"
			Call Echo "%%f" %%Name%%
			>nul Call "%ARC%" a -tzip -sdel "%BoxArc%\%%Name%%.zip" "%BoxIn%\*_%%Name%%%%~xf"
		)
	)
pause
Exit /B