How to find complete path of a test in TestLab from a business process test ?

[synopsis]

Hello,
How to find complete path of a test in TestLab from a business process test ?
I'm on QTP10 and QC10
I have found some codes who work in QuickTest-Test but not in BPT (Business Process Test)
I try :

Code:

Dim qtApp Set qtApp = CreateObject("QuickTest.Application") strTestPath = qtApp.Test.Location msgbox strTestPath Set CurrentTest = QCUtil.CurrentTest Set TestPath = CurrentTest.FullPath msgbox TestPath Set CurrentTestSet = QCUtil.CurrentTestSet Set folder = CurrentTestSet.TestSetFolder folderName = folder.Name msgbox folderName strPath = folderName While folderName <> "Root" Set folder = folder.Father folderName = folder.Name strPath = folderName & "\" & strPath msgbox strPath Wend msgbox strPath

Someone have an idea ?

Thank in advance