execute tests using VB Script

[sahithiqtp]

Hi All,

I am new to QTP. I was doing a sample for executing test from another test(VB scripting) in QTP. Below is the code snippet

Code:

set qtApp1 = CreateObject("QuickTest.Application")
If Not qtApp1.Launched then
qtApp1.Launch
end if
qtApp1.Visible = True '
qtApp1.Options.Run.RunMode = "Fast"
qtApp1.Options.Run.ViewResults = True

qtApp1.Open "D:\Test2"

set qtTest = qtApp1.Test
qtTest.Run
qtTest.Close
qtApp1.Quit

I am getting a runtime error while executing the above code. It kicks me out at qtApp1.Open "D:\Test2" saying "The operation failed because the application is busy"

Could you please let me know what could be the reason for this type of error