QTP Restart and Shutdown

QTP Restart and Shutdown

'*********Opens the QTP and Runs the specified Script******************

Dim App 'As Application

Set App = CreateObject("QuickTest.Application")

App.Launch

App.Visible = True

App.Folders.Add("C:\Documents and Settings\Ayaskant Jena\Desktop\Vinay.qfl")

App.Folders.Add("C:\Documents and Settings\Ayaskant Jena\Desktop\Repository1.tsr")

App.Open "C:\Documents and Settings\Ayaskant Jena\Desktop\Ayas",False

App.Test.Run

'*************************WORKING FINE********************************

　

'**********Discards the present test and Close QTP*********************

Dim App 'As Application

Set App = CreateObject("QuickTest.Application")

App.quit

Set App = nothing

'*************************WORKING FINE*********************************