Dim strFilePath
strFilePath = "E:\xxx\xxxx.exe"
Shell strFilePath, vbNormalFocus
如果存在退出
if FindProcess("xxxx.exe")=0 then
Exit
end if
楼上的正解!
也可以直接:shell "c:\xxx\xxx.exe"
或者用:ShellExecute Me.hwnd, "open", App.Path & "\xxx.exe", vbNullString, vbNullString, 1
二楼的方法,我用过!