How to set resluts folder through code

[supputuri]

Hi Amit,

Try this.

Code:

TestName = Environment.Value("TestName")
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\Tests\" & TestName & "\ Results" ' Set the results location
Set qtResultsOpt = Nothing
msgbox Environment.Value("ResultDir")

Please let me know if you need any more info.