Dim qtApp Set qtApp=CreateObject("QuickTest.Application")qtApp.LaunchqtApp.visible=TrueqtApp.Open "D:/SMETestingAnyone"qtApp.Test.RunqtApp.QuitSet qtApp=Nothing