LoadTsr - QTP

sTsrMap = ".\requiredObjects.tsr"
LoadTsr sTsrMap



Public Function LoadTsr(sTsrMap)
 Dim qtApp, qtRepositories
 Set qtApp = CreateObject("QuickTest.Application")
 ActionName = Environment("ActionName")    ' am just getting the action name
 Set qtRepositories = qtApp.Test.Actions(ActionName).ObjectRepositories
 ' just creating an object in order to access repositories of the above said action.
 qtRepositories.RemoveAll    ' removing all previously associated repositories.
 qtRepositories.Add sTsrMap,1    ' Action the repository.
 Set qtApp = Nothing
End Function