[El Sanchez]

csusha,

Код:

@Echo Off
Set Drive=D:
For /F "Tokens=1 Delims=:" %%A In ('Dir %Drive% /B /S /AD^|FindStr /IN .') Do Set Count=%%A
Echo Количество директорий на диске %Drive% %Count%