Ms-Dos - Saber cuantos directorios contiene un directorio

@ECHO OFF

set /p DIREC=Introduce direccion o arrastra directorio aqui para listar carpetas:

CD /D %DIREC%

set contador=0

CLS

ECHO LISTADO DE DIRECTORIOS DENTRO DE: %DIREC%

ECHO ********************************

ECHO.

FOR /D %%A in (*.*) do set carpeta=%%A&call :cuenta

ECHO.

echo TOTAL DIRECTORIOS ENCONTRADOS: %contador%

ECHO *****************************

ECHO.

pause

goto:eof

:cuenta

set /A contador +=1

echo %contador%.- %carpeta%

goto:eof

@echo off

set direc=C:\Users\reasi\Downloads\prueba

CD %direc%

set contador=0

cls

echo LISTADO DE ARCHIVOS DENTRO DE: %direc%

echo ********************************

echo.

for %%A in (*.*) do set carpeta=%%A&call :cuenta

echo.

echo TOTAL DE ARCHIVOS ENCONTRADOS: %contador%

echo *****************************

echo.

pause

goto:eof

:cuenta

set /A contador +=1

echo %contador%.- %carpeta%

goto:eof