QuickTest Professional 9.0 does not support dynamically 
loading object repositories at runtime. AOM (Automation 
Object Model) statements are not designed to be executed 
from within a test script.

QuickTest Professional 9.0 does allow you to associate and 
load (not at runtime) multiple Object Repository files.

-Atin Srivastava

Use the Automation Object Model to specify the path to a 
Object Repository: 
Dim App 'As Application 
Set App = CreateObject("QuickTest.Application")
App.Test.Settings.Resources.ObjectRepositoryPath 
= "<PathToYourObjectRepositoryFileHere>"

To be more simple 
go with this 

RepositoriesCollection.Add " .tsr File path "

Hi We can call the TSR file in runtime and in 8.2 and 9.0 
also.

How means.. i am giving one function

Public Function UDF_ORUpdate(g_ActName,sv_qtFileName)
    Dim qtApp
    Dim qtRepositories
    Set qtApp = CreateObject("QuickTest.Application") 
    Set qtRepositories = qtApp.Test.Actions
(g_ActName).ObjectRepositories
    qtRepositories.removeall
    qtRepositories.Add sv_qtFileName

End Function

hi krishna,

LOADING OBJECT REPOSITY AT RUN TIME U WROTE SMALL FUNCTION
IN THAT U MENTIONED OBJECT  .

CAN YOU PLZ EXPLAIN HOW THAT OBJECT WORK COMPLETELY 

REGARDS
SARI

hi,

One of the new feature of QTP 9.2 is Dynamic Management of OR.

>>ADD - RepositoriesCollection.Add("D/OR/test.tsr")
-- it will add the 'test.tsr' file during the run time

>>FIND - Pos = RepositoriesCollection.Find("D/OR/test.tsr") 
-- it will return a numeric value to the variable 'Pos' this
is nothing but the index value of the specified file

>>MOVETOPOS - RepositoriesCollection.MoveToPos(2,5)
-- here 2 is the current index and 5 is the new index
position. In this case it will move 2nd item to 5th position

>>REMOVE - RepositoriesCollection.Remove(5)
--it removes the 5th object repository file from the OR

>>REMOVEALL - RepositoriesCollection.RemoveAll 
--it removes the full items from OR. Makes object repository
empty

>>COUNT - no = RepositoriesCollection.Count 
--stores the number of repository items to 'no'

>>ITEM - desc = RepositoriesCollection.Item(4)
--returns the path of the 4th object repository file.


Thnx
Sanu

Dim qtApp
    Dim qtRepositories
    Set qtApp = CreateObject("QuickTest.Application") 
    Set qtRepositories = qtApp.Test.Actions
("ActionName").ObjectRepositories
    
qtRepositories.Add "E:\Sandeep_Documents\Sandeep_Working\sha
redRepository.tsr"