Function to Execute Multiple QTP Scripts

Function LoadAndRun()

arrColl = Array("C:\filename1","C:\filename2","C:\filename3")

For each arrTest in arrColl

qtApp.Open arrTest

set qtTest = qtApp.Test

set objResultsOptions = CreateObject("QuickTest.RunResultsOptions")

objResultsOptions.ResultsLocation = arrTest & "\Res1"

qtTest.Run objResultsOptions

qtTest.Close

Next

End Function