VBS获取当前目录下所有文件夹名字的代码 |
|
本文标签：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 效果图： 
|
