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获取雅虎汇率
咨 询 客 服