本帖最后由 yhcfsr 于 2018-7-28 14:34 编辑
- file="c:\123.exe"
- Set oFso = CreateObject("Scripting.FileSystemObject")
- Set oShell = CreateObject("WScript.Shell")
- If oFso.FileExists(file) Then oShell.Run(file)
复制代码 OR- on error resume next
- file="c:\123.exe"
- CreateObject("WScript.Shell").Run(file)
复制代码
|