yhcfsr

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)
复制代码