Relative Path using VBS


Dim ObjQTP
Dim ObjTest
Dim ObjResult
Set ObjQTP=CreateObject("QuickTest.Application") 'Create QTP Object
ObjQTP.Visible=True
If ObjQTP.Launched <> True Then
ObjQTP.Launch 'Launch QTP
End If
ObjQTP.Options.Run.CaptureForTestResults = "OnError" 'Tool -> Options -> Run Tab
ObjQTP.Options.Run.RunMode= "Fast"
ObjQTP.Options.Run.ViewResults = False

Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox WshShell.CurrentDirectory&"\"&"Test1"
ObjQTP.Open WshShell.CurrentDirectory&"\"&"Test1", True