location function

[Anamika sinha]

hello,

can any one please explain below function:

i understand function object but "TestLocation=objQTP.Test.Location" in this line i am not understand "Test" role.

Code:

FUNCTION GetFileLocation (ByRef sFolderName, ByRef sFileName) Dim objQTP Set objQTP = CreateObject("QuickTest.Application") TestLocation=objQTP.Test.Location var=split(TestLocation,"\") i=UBound(var) var(i-1)=sFolderName var(i)=sFileName TestDataLocation=join(var,"\") GetFileLocation = TestDataLocation Set objQTP = Nothing END FUNCTION

[supputuri]

Hi,

The test method will bring the current test into context.
But, I don't understand what your doing here. Can you tell me what was your insight of this function?
Why you need this function?

Thanks,
Sri

[Anamika sinha]

Thanks, actually in this function i am simply retrieve excel sheet location for import data sheet in script................

if possible please explain this in brief

---

[supputuri]

Hi,
You can use environment inbuilt variable to get the location of you test and use that.

Code:

'Paste this code in a saved test msgbox Environment("TestDir") ' you can see the location of your test

Let me know if you need any more info.