调用程序并等待程序返回运行结果

'========================================================================= '创建日期： 2011-06-01，hellostory '函数说明： 运行并等待程序执行完毕，同时返回程序运行结果 '参数说明： strCommand - 需要被执行的命令或程序 '返回值： 被执行的命令或程序自身返回的运行结果 '========================================================================= Public Function runAndWaitExe(strCommand As String) As Integer On Error GoTo errHandler Dim WshShell As Object Set WshShell = CreateObject("wscript.shell") runAndWaitExe = WshShell.Run(strCommand, 0, True) errHandler: If Err.Number Then MsgBox "执行命令（ " & strCommand & " ）时发生错误：" & Err.Description, vbCritical, "错误" Debug.Print strCommand Resume Next End If End Function