Error is scheduling a QTP Test

[sqadri]

Hi Ia mtrying to schedule a QTP Test using following code but I get an error saying @ line 11. Could someone please look into this and see what I am doing wrong.

Code:

Dim Test_path
Test_path = "C:\Users\qad03322\Test3"
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
' Set QuickTest run options
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False
qtApp.Open Test_path, True ' Open the test in read-only mode
' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Run ' Run the test
qtTest.Close ' Close the test
qtApp.quit
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the App

Thank you,
Sqadri

[ravi.gajul]

Looks like we don't have "Test3" script at "C:\Users\qad03322\".