@Echo off &Echo Executing %0

rem Задам папку для прог-удалени старых фйлв и кол-во свежих фйлв, кот-е надо НЕ удалять.
Set MyFolder=C:\Temp
Set nNew=6

rem Проверю возможнсть назначить заданную папку текущей [существует ли она?].
Cd /d %MyFolder% ||(
  rem Не удалось впрыгнуть в заданную папку. Выходим, чтоб ошибочно не удалять файлы в др папке.
  Echo Jump to %MyFolder%\ is impossible! Press any key to Exit.&Pause>nul &Exit)

rem Очищу фйл-список накопитель удаляемых фйлв [если он существует в папке Temp].
if exist %tmp%\MustDel.dos Del %tmp%\MustDel.dos

rem Кирил-сообщени [Задано в папке %cd%\ оставить %nNew% файлв:] задам с предыскажением в DOS-кодировке:
Echo.&Echo 	╪ ¤ -R ў Ї ЇЄ_ %cd%\ Rбв ўЁвм %nNew% д c<ў:

rem For-Dir передадут в :Listing-процедуру имена всех фйлв в ткщ-папке, начиная с новейшх.
For /f "delims=" %%f in ('Dir /b /a-d /o:-d') do Call :Listing "%%f"

Echo.&if not exist %tmp%\MustDel.dos (
  rem фйл MustDel.dos не создался, отображу: [В папке нет файлов для удаления. Жми л клавишу закрыть окно.]
  Echo ' Ї ЇЄ_ -_в д c<Rў ¤<п г¤ <_-Ёп. ┼┐Ё < Є< ўЁиг  Єалвм RЄ-R.
	Pause>nul &Exit =досроч-выход, удалять нечего)

Echo 	_г¤гв г¤ <_-л -Ё│_-д c<л:&rem Будут удалены ниже-файлы:
Type %tmp%\MustDel.dos

Echo.&Pause&Echo.&rem тут мож нажать Ctrl+C либо закрыть cmd-окно чтобы отменить намеченное удалени по списку.

rem перед удалением фйлв, зачитанных из списка MustDel.dos, сброшу их защитн атрибуты.
For /f "delims=//" %%f in (%tmp%\MustDel.dos) do Attrib -s -h -r %%f &Del %%f &if not exist %%f Echo 	%%f is deleted.

Echo.&Echo Press any key to Exit&Pause>nul &Exit				=========== Конец фйла.


:Listing	эта процедура получает имена фйлв как %1
if %nNew% gtr 0 (
  rem счётчик кол-ва фйлв не обнулён, декрементирую его, отображу оставляемые новейш фйлы и выхожу из процы:
  Set /a nNew=nNew-1&Echo %1//%~t1&Exit /b 0 )

Echo %1//%~t1>>%tmp%\MustDel.dos
Exit /b 0 записал в фйл-список MustDel.dos очередной старй фйл для удалени. Возвращаюсь из процы в Call-вызыватель.