[решено] Сохранить пути к папкам без подкаталогов

[vngreez@vk]

Имеется папка a она состоит из других папок
a\
pr\gdfg
gf\gfd
пgf\fdg

нужно папки которые находятся в папке "а" записать в файл построчно без подкаталогов.
Должно быть так:
ФАЙЛ.txt
a\pr
a\gf
a\пgf

[megaloman]

@Echo Off

Set "BoxIn=Z:\Data"
Set "OutFile=%~dpn0.txt"

>"%OutFile%" (FOR /F "usebackq delims=" %%d IN (`Dir "%BoxIn%" /B /A:D 2^>nul`) DO Echo %BoxIn%\%%d)