------------------------------------程序如下-------------------------------------
Sub 运行程序(程序路径)
Dim P, I, DirPath, ExeName
P = Split(程序路径, "\")
For I = 0 To UBound(P) - 1
DirPath = DirPath & P(I) & "\"
Next
ExeName = P(UBound(P))
ShellExecute GetDesktopWindow, "open", ExeName, vbNullString, DirPath, 5
//
End Sub
--------------------------------我是分割线--------------------------------------
运行完只是弹出程序打开的确认框,还要点一下才行,我想直接打开,怎么改呀

如果是系统管理员模式下则没有提示，有些程序在普通用户模式下要管理员权限，故而弹出确认框，那是没办法的，程序需要管理员权限才能得到它要的东西