[megaloman]

Код:

@Echo off

Set "In=D:\Dir100"
Set "Size=102400"

SetLocal EnableExtensions EnableDelayedExpansion

for /f "usebackq delims=" %%d in (`dir /b /A:D "%In%\" 2^>nul`) Do (
	for /f "usebackq tokens=3" %%i in (`dir /s /-c /A:-D "%In%\%%d\" 2^>nul`) Do Set "A=!B!" & Set "B=%%i"
	Set "BB=!A:~0,1!"
	Set /A B=!BB:~0,1!*1 2>nul
	If Not "!B!"=="!BB!" Set "A=0" 
	If !A! LSS %Size% Rd "%In%\%%d" /q /s
)