如何阅读QC中保存的测试用例代码？

Question

我想阅读在QTP中制作的测试用例中编写的代码，该代码保存在QC中。 所以我的要求是：

1. 连接QC。
2. 通过在QC中指定其路径来到达特定的测试用例。
3. 尝试阅读使用filesystemobject以类似方式阅读简单文本文件时在测试用例中编写的代码。

我知道如何在测试用例中阅读代码，请参阅下面的代码

filename = "C:\YourUFTTest\Action1\script.mts"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)

Do Until f.AtEndOfStream
  MsgBox f.ReadLine
Loop

f.Close

但现在的要求是不同的。

我需要阅读保存在QC中的测试用例代码。

Answer 1

希望以下代码可以帮助您。

Set qtApp = CreateObject("QuickTest.Application")
qtApp.TDConnection.Connect "http://xyz/qcbin/", "domain", "project", "used", "Password", False 

If qtApp.TDConnection.IsConnected then
  msgbox "connected"
  qtApp.Open "[QualityCenter] Subject\..\..\Testname",True
  qtApp.Test.SaveAs "C:\path\Test1"
Else    
    msgbox "not connected"
End if
Set qtApp = Nothing 

下载脚本后，使用如上所述的FSO对象读取脚本