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