QTP Reporter ReportPath

Reporter.ReportPath

Retrieves the folder path in which the current test's results are stored.

Simple example:
dim location
location = Reporter.ReportPath
MsgBox (location)