Listado recursivo solo subdirectorios 1 nivel

Excelente para listar los subdirectorios 0day de algun ftp (mapeando antes la unidad con Webdrive o Netdrive)

for /F "tokens=*" %a in ( ' dir /O /B ') do dir %a >>c:\0day.txt