Dim qtApp Set qtApp = CreateObject("QuickTest.Application") qtApp.Test.Actions(1).ObjectRepositories.Add "C:\Repository1.tsr"
strRepPath = "c:\vIns\OR.tsr" (path of OR) RepositoriesCollection.RemoveAll() RepositoriesCollection.Add(strRepPath)