Set objShell = CreateObject("Shell.Application")
Set colTools = objShell.Namespace(47).Items
For Each objTool in colTools
Wscript.Echo objTool
Next
Set colTools = objShell.Namespace(47).Items
For Each objTool in colTools
Wscript.Echo objTool
Next
本文介绍了一种利用VBScript中的Shell.Application对象来遍历指定目录下所有工具的方法。通过创建Shell.Application对象并调用其Namespace方法获取指定路径下的文件集合,再使用Items属性列出所有项目,并最终通过循环打印每个工具的名称。

被折叠的 条评论
为什么被折叠?



