为什么不直接用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")