Yo no se batch casi....asi que te dejo un vbscript el cual te imprime en pantalla las subcarpetas de una carpeta.....te lo dejo no se si te sirva....pero te aconsejaría aprender vbscript que batch
Option Explicit
dim fso,f,lf,list
set fso=CreateObject("scripting.filesystemobject")
set f= fso.getfolder("C:\Users")
set lf=f.subfolders
for each list in lf
wscript.echo list.name & vbCrlf
next
wscript.echo "Hola El Programa a Llegado a Su Fin....Hemos terminado"
solo abre el notepad y aguarda lo como nombre
123.vbs y abre el cmd y escribe
cscript 123.vbs 
Mostrar Mensajes
