AOM script is running only one or two scripts.

[jramya]

Hi,
Any one please help me, AOM script is running only one or two scripts i wrote correct code but it was running sometimes only even qtp is not closing
does we have to change any settings in qtp tool
Here is my code

Code:

Dim App
set App=createobject("quicktest.application")
App.launch
App.visible=true
dim QTP_Tests(3)
QTP_Tests(1)="E:\qtp scripts\excel"
QTP_Tests(2)="E:\qtp scripts\popup"
QTP_Tests(3)="E:\qtp scripts\flight"
set res_obj=createobject("Quicktest.runresultsoptions")
for i=1 to ubound(QTP_Tests)
wscript.sleep 1000
App.open QTP_Tests(i),true
set QTP_Test=App.Test
res_obj.ResultsLocation=QTP_Tests(i)& "\suvarna"      'set the results location
QTP_Test.run res_obj,true
QTP_Test.close
next
wscript.sleep 1000
App.quit
set res_obj=nothing
set QTP_Test=nothing
set App=nothing