首页 > 代码库 > QTP动态加载对象库

QTP动态加载对象库

Public Function AddObjectRepository(path)    On Error Resume Next    Dim pos, repath    If instr(path,".tsr") Then        repath = path    else        repath = path & ".tsr"    End If    RepositoriesCollection.RemoveAll()    print repath    RepositoriesCollection.Add (repath)        pos = RepositoriesCollection.Find(repath)    If pos<>1 Then        print "cannot find repository"    End If    End FunctionCall AddObjectRepository("D:\hell")

 

QTP动态加载对象库