QTP连接QC时，通过QCUtil对象获取QC中的Test信息

 

最近几天，开始尝试QTP与QC的连接操作。

写了几个方法，来获取QTP脚本在QC中所在的不同目录的路径信息。

GetCurrentTestSet： 返回当前脚本所在的Test Set的路径名称

GetCurrentInstance：返回当前脚本在Test Set中的步骤名称及运行时的实例名称

GetCurrentTestName：返回当前脚本在Test Plan中的绝对路径

 

 

Function GetCurrentTestSet()GetCurrentTestSet=""'If current test set is nothing then exitIf QCUtil.CurrentTestSet is Nothing Then Exit Function'Name of the test settestSetName = QCUtil.CurrentTestSet.Name'Path for the folder where the test Set existstestSetFolder = QCUtil.CurrentTestSet.TestSetFolder.Path'Combine the twoGetCurrentTestSet = testSetFolder & "/" & testSetNameEnd Function Function GetCurrentInstance()GetCurrentInstance=""'If current test set is nothing then exitIf QCUtil.CurrentRun is Nothing Then Exit Function'Name of the test InstanceInstance = QCUtil.CurrentTestSetTest.name &"->"& QCUtil.CurrentRun.nameGetCurrentInstance = InstanceEnd Function Function GetCurrentTestName()GetCurrentTestName=""'If current test set is nothing then exitIf QCUtil.CurrentTest is Nothing Then Exit Function'Name of the test testname = QCUtil.CurrentTest.Field("TS_SUBJECT").Path & "/" &QCUtil.CurrentTest.nameGetCurrentTestName = testnameEnd Function