范文 |
有时候我们需要获取当前目录下所有文件夹的名字,那么就可以参考下面的代码了 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 效果图:  |