运维开发网

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

运维开发网 https://www.qedev.com 2020-02-17 15:02 出处:网络 作者: 网络整理
有时候我们需要获取当前目录下所有文件夹的名字,那么就可以参考下面的代码了
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

效果图:

0

精彩评论

暂无评论...
验证码 换一张
取 消