Код:
@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion
Set "In=E:\Основная папка"
Set "TXT=E:\Основная папка\__Count.txt"
Del "%TXT%" >nul 2>nul
FOR /F "usebackq delims=" %%i IN (`Dir "%In%\*.*" /B /A:D 2^>nul`) DO (
Set /A N=0
FOR /F "usebackq delims=" %%j IN (`Dir "%In%\%%i" /B /A:-D 2^>nul`) DO Set /A N+=1
Set "N= !N!"
>>"%TXT%" Echo !N:~-6! %%i
)