Dim qtApp
Set qtApp=CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.visible=True
qtApp.Open "D:/SMETestingAnyone"
qtApp.Test.Run
qtApp.Quit
Set qtApp=Nothing
Dim qtApp
Set qtApp=CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.visible=True
qtApp.Open "D:/SMETestingAnyone"
qtApp.Test.Run
qtApp.Quit
Set qtApp=Nothing