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 Function

Call AddObjectRepository("D:\hell")