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