v:\> type subdirlist.btm
setlocal
cdd %1
unset subdirlist
do subdir in /a:+d-s-h *
set subdirlist=%[subdirlist]%subdir,
enddo
set subdirlist=%@rtrim[",",%subdirlist]
echo subdirectory list for %1 is^r^n^r^n%subdirlist
cdd -
v:\> subdirlist.btm v:\
subdirectory list for v:\ is
a b,eshelp,from_barnyard,hold,ipreg,junk,LocalDumps,plugins,s2g,test,tweakstuff,wt_schemes