Hi ,
I was working with the below mentioned Script . Script was executed
successfully but the result window was not displayed in QTP.It was created
in the mentioned path.Can anyone help me in modifying the script to open the
QTP(Test result window ) during execution.
Dim qtApp ' Declare the Application object variable
Dim qtTest ' Declare a Test object variable
Dim qtResultsOpt ' 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.ImageCaptureForTestResults = "OnError"
'qtApp.Options.Run.ViewResults = False
qtApp.Open "C:\Documents and Settings\Kapil\Desktop\Test1", True ' Open the
test in read-only mode
'set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform
next step when error occurs
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the
Run Results Options object
qtResultsOpt.ResultsLocation = "C:\Documents and
Settings\Kapil\Desktop\Test1\Res1" ' Set the results location
qtTest.Run qtResultsOpt ' Run the test
MsgBox qtTest.LastRunResults.Status ' Check the results of the test run
qtTest.Close ' Close the test
Set qtResultsOpt = Nothing ' Release the Run Results Options object
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object
Regards,
Kowsaliya
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
-~----------~----~----~----~------~----~------~--~---
