Hi,
It is working fine for me.
SORpath="C:\ObjectRepository\Repository.tsr"
'RepositoriesCollection.Add(SORpath)
Set QtApp = CreateObject("QuickTest.Application")
qtApp.Visible = True
strTestDir=Environment.value("TestDir")
strActionname=Environment.value("ActionName")
' qtApp.Open strTestDir, False, False '
Set qtRepositories =
qtApp.Test.Actions(strActionname).ObjectRepositories
' Add MainApp.tsr if it's not already in the collection
If qtRepositories.Find(SORpath) = -1 Then ' If the repository cannotbe
found in the collection
qtRepositories.Add SORpath, 1 ' Add the repository to thecollection
End If
Happy Tester,
Byzoor,
On Thu, Apr 28, 2011 at 11:50 AM, QTPExpert <[email protected]> wrote:
> Hi,
>
> Currently i am using below code.but its throwing error message stating
> "Object doesn't support this property or method: 'QtApp.Test.Actions'.
>
> Please correct me
>
> SORpath="C:\ObjectRepository\Repository.tsr"
> 'RepositoriesCollection.Add(SORpath)
> Set QtApp = CreateObject("QuickTest.Application")
> Set qtRepositories =
> QtApp.Test.Actions("DriverScript").ObjectRepositories ' Getthe object
> repositories collection object of the "Login" action
> ' Add MainApp.tsr if it's not already in the collection
> If qtRepositories.Find(SORpath) = -1 Then ' If the repository cannot
> be found in the collection
> qtRepositories.Add SORpath, 1 ' Add the repository to the
> collection
> End If
>
> Thanks,
> Bhuvan
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
