Script which retrieves the current path of the test script

Hi Everybody,

Could you tell me the script which retrieves the current path of the test script? I am working on version 9.1

sObjRepoFile = Environment.Value("TestDir")

Set oFso = CreateObject( "Scripting.FileSystemObject" )

Environment.Value("RelativePath")=oFso.GetParentFolderName( oFso.GetParentFolderName( sObjRepoFile ))


scriptpath = Environment.Value("RelativePath")

msgbox scriptpath

Hope this will work!