i have created global settings for my all testcases as .
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
' Set QuickTest run options
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False
then loading the environment file and libraries s file .
qtApp.Test.Save ' Save the test
qtApp.Quit ' Quit QuickTest
Set qtLibraries = Nothing ' Release the test's libraries collection
Set qtApp = Nothing ' Release the Application object
Afer executing this file its gives me error as
1) Failed to save the test and
2)the Operation failed because the application is busy.
Please help me to resolve this issue
Thanks in advance
Girish which line of the code is causing the problem?
Hi Smith ,
Thanks for reply .
From the line qtApp.Test.Save .
i hane created reusable action which calls the globalsettings.vbs ,This will be called in all my testscript . so i need not make settings for each of the testscript.This my approach.
When i comment the from the above statement. its executes sucessfully . it loads the environment file and also library files ,but it fails to call the library methods .
when i run for second time,it works fine .
please could you suggest to resolve the issue.
Thanks in advance
Girish I think you need to use SaveAs like this:
qtApp.Test.SaveAs Environment.Value("TestName") ' Save the test
You may want to create a small dummy test and test it 1st.