'Write the below code in a text file and Save it with .vbs extension and run it.
Set App = CreateObject("QuickTest.Application")
App.Visible = True
QTP_Tests(1) = "C:\Program Files\HP\QuickTest Professional\Tests\tr1"
QTP_Tests(2) = "C:\Program Files\HP\QuickTest Professional\Tests\tr2"
QTP_Tests(3) = "C:\Program Files\HP\QuickTest Professional\Tests\tr3"
'Creating the RunResultsOptions object. It is a collection of properties that indicate preferences for the run results. E.g. ResultsLocation property as used below which tells the path in which the run results will be stored.
Set res_obj = CreateObject("QuickTest.RunResultsOptions")
For i = 1 to UBound (QTP_Tests)
App.Open QTP_Tests(i), True'Using the Run method. Run Method runs the open test or business component and creates results in the specified file or Quality Center path. A Boolean value - true or false can be set. Indicates whether the Test.Run statement waits until the end of the run before performing the next statement in the automation script. Default=True.
Set QTP_Test = App.Test
res_obj.ResultsLocation = QTP_Tests(i) & "\Res1" ' Set the results location
QTP_Test.Run res_obj, TrueNext
Set res_obj = nothing
Set QTP_Test = nothing
Set App = nothing