Shell App.Path & "*.exe", vbNormalFocus 记得添加 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
iTask = Shell(AppPath & "an.exe " & TableName & " " & keynum, vbNormalFocus)
不能引用,只能用B.exe 获取。
a.exe 也是你写的啊!'a.exe
Shell "b.exe " & App.Path '注意b.exe后面有空格' b.exe
MsgBox Command, 64
记得添加
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long