51Testing软件测试论坛

标题: 想问下关于动态调用副对象库 [打印本页]

作者: sab_h 时间: 2014-6-15 18:14
标题: 想问下关于动态调用副对象库
为什么不直接用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
有人吗。。。。各位大神。。。

作者: auto_tester 时间: 2014-6-18 12:21
学习中！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)