Run the QTP test & Save results In One Folder

Set qtpo=CreateObject("Quicktest.Application")

qtpo.launch

qtpo.visible=true

set qtpro=createobject("quicktest.runresultsoptions")

qtpro.resultslocation="C:\Documents and Settings\qa\Desktop\csr"

qtpo.open("C:\Documents and Settings\qa\Desktop\qtp")

qtpo.test.run qtpro,true

qtpo.quit