vbs有没有办法显示一个文件夹下所有子文件夹的名称（是不是要用到递归）

set fso=createobject("scripting.filesystemobject")
set fs=fso.getfolder(".")
sig=0

str=fs.path & chr(13) & chr(10)
call fds(fs,str,sig)

msgbox str
fso.opentextfile("目录列表.Txt",2,1).write str

sub fds(p,str,s)
dim folders,sig
sig=s+3
set folders=p.subfolders
for each f in folders
str=str & space(sig) & f.path & chr(13) & chr(10)
call fds(f,str,sig)
next
end sub

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
for each fd in folder.subfolders
s=s & fd & vbcr
next
wsh.echo s

为什么要匿名呢？？