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

[Ankesh]

Did you check the result log? Where is it exiting the code? You may need to debug.

[jramya]

thanks for reply sir
but i didn't understood what u r saying

[Ankesh]

Are you running the code from QTP? IF yes then chk the Run REsult. There may be some issue.

[jramya]

no, i am running from notepad vbs file it does not give any error simply remains constant