全盘查找并运行!!!- dim ws
- Set ws=CreateObject("wscript.shell")
- for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = '要找的文件名,例如:Ang' and Extension = '要找文件的扩展名,例如:exe'")
- str = x.name
- 'ws.run """"& str & """"
- ws.run chr(34) & str & chr(34)
- next
复制代码
|