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

2019-10-26 18:06:33

字体：大中小

来源：转载

供稿：网友

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获取雅虎汇率

上一篇：VBS 正则判别素数(质数)

下一篇：vbs获取当前路径的代码