QTP AOM Script : Launch QTP, Create new test and Save it

QTP AOM Script : Launch QTP,  Create new test and Save it
===============================================
dim qtpapp

set qtpapp=createobject("quicktest.application")

qtpapp.launch

qtpapp.visible=true

qtpapp.new

qtpapp.test.saveas "C:\qtpapp"

qtpapp.visible=true

qtppapp.quit

set qtpapp=nothing