07-27-2012, 05:01 PM
Try this code
Code:
Dim AppQTP
Set AppQTP = CreateObject("QuickTest.Application")
AppQTP.Launch
AppQTP.Visible = TRUE
Set AppQTP = GetObject("","QuickTest.Application")
AppQTP.Windowstate = "Maximized"
AppQTP.Open "Z:\test1"
AppQTP.Test.Run