vbs中 load ObjectRepositories问题

liucongying

'Description:

'

'This example opens a test, configures an action's object repositories collection

'and saves the test.

'

'Assumptions:

'There is no unsaved test currently open in QuickTest.

'For more information, see the example for the Test.SaveAs method.

'************************************************************************************************************************



Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Dim qtRepositories 'As QuickTest.ObjectRepositories ' Declare an action's object repositories collection variable

Dim lngPosition



' Open QuickTest

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Launch QuickTest

qtApp.Visible = True ' Set QuickTest to be visible



' Open a test and get the "Login" action's object repositories collection

qtApp.Open "C:\Tests\Test1", False, False ' Open a test

Set qtRepositories = qtApp.Test.Actions("Login").ObjectRepositories ' Get the object repositories collection object of the "Login" action



' Add MainApp.tsr if it's not already in the collection

If qtRepositories.Find("C:\MainApp.tsr") = -1 Then ' If the repository cannot be found in the collection

    qtRepositories.Add "C:\MainApp.tsr", 1 ' Add the repository to the collection

End If





为什么我 执行到 Set qtRepositories = qtApp.Test.Actions("Login").ObjectRepositories 这句话的时候 报错 说 对象不支持此属性或方法 “Test.Actions”why???????????????????
当然有 Login这个action德 有人 试试吗 能成功吗

gy21st

单步调试一下吧，我直接把你的代码拷过来都没有问题。

[ 本帖最后由 gy21st 于 2008-1-31 19:59 编辑 ]

liucongying

不会把，我还是老问题。。。难道我8。2没有卸载干净？

gy21st

现在什么版本呢？看看帮助支持不支持这个方法。

liucongying

9。2的版本 我发现就是 action的对象的 方法不支持 其它都支持的。。。