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

Micro Focus QTP (UFT) Forums

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

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: How to find complete path of a test in TestLab from a business process test ? (/Thread-How-to-find-complete-path-of-a-test-in-TestLab-from-a-business-process-test)

How to find complete path of a test in TestLab from a business process test ? - synopsis - 05-23-2011

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