Code to run all QTP scripts and see all results

[Pkapoor]

hello ,

I am trying to see how to run to run all my QTP scripts together and came up with

Code:

[set QtpApp=createobject("Quicktest.application")
QtpApp.launch
QtpApp.visible=true
QtpApp.open ("D:\Storage Secure\QTP sample practice\Tests\SSMC Modules\TestAddLoginVerifyLogout-Menu")
set QtpTest=QtpApp.test
QtpTest.run
QtpApp.open ("D:\Storage Secure\QTP sample practice\Tests\SSMC Modules\TestAddLoginVerifyLogout-Tree")
set QtpTest=QtpApp.test
QtpTest.run
'QtpTest.close
'QtpApp.quit]

Now when i want to see the result only last test result is shown in result viewer. how can i see results to all test cases?

Is this the best way to perform this operation to run all test cases collectively?