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
效果图：
您可能感兴趣的文章:
用vbs实现获取电脑硬件信息的脚本_最新版用VBS控制鼠标的实现代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）获取外网IP并发送到指定邮箱的vbs代码[已测]vbs 获取当前目录的实现代码vbs获取当前时间日期的代码vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法vbs中获取脚本当前路径的2个方法通过vbs获取远程host文件并保存到指定目录VBScript获取CPU使用率的方法使用vbs获取雅虎汇率
