'三种UFT打开程序的方法  


'1、SystemUtil.Run ' SystemUtil对象的Run方法
SystemUtil.Run "D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"


'2、InvokeApplication ' 调用程序函数
InvokeApplication "D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"


'3、WSH ' 通过wsh对象的Run（bat）或者exec（exe）方法
Dim oWSH
Set oWSH = CreateObject("WScript.shell")
oWSH.exec "D:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
Set oWSH = nothing