Как читать код тестового примера, хранящегося в QC?

Question

Я хочу прочитать код, написанный внутри тестового примера, сделанного в QTP, и который хранится в QC. Таким образом, мое требование:

1. Подключить QC.
2. Пройдите к конкретному тестовому корпусу, указав его путь в QC.
3. Попробуйте прочитать код, написанный внутри тестового примера, так как мы читаем простой текстовый файл с помощью файловой системы подобным образом.

Я знаю, как читать код теста см ниже код

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 

Но требование в настоящее время отличается.

Мне нужно прочитать код тестового примера, который хранится в КК.

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, как написано выше