[megaloman]

Код:

@Echo Off &Cls &>nul CHCP 1251
	Set "BoxIn=D:\Delt"
	Pushd "%BoxIn%" || (Echo Folder "%BoxIn%\" not found &Pause &Exit /B 2)
	
	>nul CHCP 437
		Set "Mask=*.bat *.vbs *.js"

		Set /A n1=0, n2=0
		For /F "usebackq tokens=1* delims= " %%f In (`2^>nul Dir /S ^|Find /I "File(s)"`) Do 2>nul Set /A n1=%%f
		>nul 2>&1 Echo Del /s /f /a  %Mask%
		For /F "usebackq tokens=1* delims= " %%f In (`2^>nul Dir /S ^|Find /I "File(s)"`) Do 2>nul Set /A n2=%%f
	Popd

	>nul CHCP 1251
		Set /A nDel=%n1%-%n2%
		Echo %n1%-%n2%=%nDel% File(s) deleted
Pause 
Exit /B

Для боевого использования уберите Echo перед Del