QTP Automate

[Saket]

Sorry, my mistake I should mention this in my reply
replace TestPath with your Test file path.
Use this modified code

Code:

Dim qtpApp    
Dim qtpTest      
Set qtpApp = CreateObject("QuickTest.Application")
qtApp.Visible = true    
qtpApp.Open <<Your Test Path>>, True  
Set qtpTest = qtpApp.Test  
qtpTest.Run

Set qtTest = Nothing
Set qtApp = Nothing