Namen von Unterordnern in Variablen speichern

Hallo zusammen,

Ich befinde mich in einem Verzeichnis welches ein einzelnes Unterverzeichnis enthält. Der Name dieses Unterverzeichnisses ist nicht bekannt bzwl variiert.
Frage: Wie speichere ich den Namen dieses einzelnen Unterverzeichnisses in die Variable %unterverz% ab?

Schwierigere Form: das Verzeichnis enthält nun mehrere Unterverzeichnisse, die in die Variablen %unterverz1%, unterverz2%, unterverz(...)% gespeichert werden sollen, und zwar in der Reihenfolge in der die Unterverzechnisse auf der Festplatte erstellt wurden (d.h. %unterverz1% enthält den Namen des zuerst, %unterverz(...)% des zuletzt erstellten Unterverzeichnisses)

Ich möchte wie gesagt nicht den gesamten Pfadnamen, sondern nur den Namen des Unterverzeichnisses abspeichern.
Der Name kann Leerzeichen und Punkte enthalten, die dementsprechend mit in die Varaiablen abgespeichert werden sollen.

dank Euch im voraus,
Oli

@echo off & setlocal
set Verzeichnis=X:\Verzeichnis
cd /d %verzeichnis%

Set nr=0
for /f %%i in ('dir /b /AD /OG') do call :process %%i  
set unt
pause
goto :eof

:Process
set /a nr=%nr%+1
set unterverz%nr%=%1

@echo off & setlocal
set "Verzeichnis=X:\Verzeichnis"  
PushD "%verzeichnis%"  

Set /a nr=0
FOR /F "delims=" %%i in ('dir /b /AD /OG') do call :process "%%i"  
PopD
set unt
pause
goto :eof

:Process
set /a nr=%nr%+1
set "unterverz%nr%=%~1"