09-25-2009, 04:45 PM
Hi,
I would suggest you to modify your code little bit like this, then try I am 99% sure it works.
I would suggest you to modify your code little bit like this, then try I am 99% sure it works.
Code:
Dim App
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.WindowState = "Maximized" ' Maximize the QuickTest window
App.ActivateView "ExpertView" ' Display the Expert View
App.open ""C:\abc\Data", True