VBS获取当前目录下所有文件夹名字的代码

vbs获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。

测试的时候要保证当前目录下有文件夹才可以，否则输出为空。

set ws=wscript.createobject("wscript.shell")
w=ws.currentdirectory
set fso=wscript.createobject("scripting.filesystemobject")
set fs=fso.getfolder(w)
set f=fs.subfolders
for each uu in f
t=t & uu.path & vbcrlf
next
msgbox t

效果图：