想问下关于动态调用副对象库

sab_h

为什么不直接用RepositoriesCollection.add
而是要写下面这段
Public Function AddObjectRepository(objectrepositoryname)
     Dim Pos
     '判断：如果已存在".tsr"后缀名则直接使用该文件路径，如果不存在则添加后缀名
     If　instr(objectrepositoryname,".tsr") > 0 Then
     RepPath = objectrepositoryname
     else
     RepPath = objectrepositoryname & ".tsr"
     End If
     '初始化：如果存在残留的副对象库则删除
     RepositoriesCollection.RemoveAll()
     '添加副对象库
     RepositoriesCollection.Add(RepPath)

     '添加后的验证：查找副对象库并将值返回给变量，如果存在返回1
     Pos = RepositoriesCollection.Find(RepPath)
     MsgBox Pos
     '返回的值如果不等于1代表不存在则报错
     If Pos <> 1 Then
     MsgBox "找不到副对象库！"
     End If

End Function
'调用该函数
Call AddObjectRepository("D：\QTP自动化测试技术领航\link.tsr")

有什么差别吗。我直接调用不就好了？

sab_h

有人吗。。。。 各位大神。。。

auto_tester

学习中！