sab_h 发表于 2014-6-15 18:14:26

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

为什么不直接用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 发表于 2014-6-16 10:00:04

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

auto_tester 发表于 2014-6-18 12:21:45

学习中！
页: [1]
查看完整版本: 想问下关于动态调用副对象库