How to upload Locally saved QTP script to ALM\QC

See more:

VBA

I got stuck up with this issue. I need to upload the QTP automation script in my local folder to ALM. i used the AOM for this but i the scripts just do not get saved

<code>

 Dim objQTP as QuickTest.Application Set objQTP=CreateObject("QuickTest.Application") strLocalPath="D:\Automation\Test" strQCScriptPath="[QualityCenter] " & "Subject\Folder\Folder2\Test"Set oDic = fn_GetQC_LoginDetails
    If Not objQTP.TDConnection.IsConnected Then
        objQTP.TDConnection.Connect "URL", "Domain","Project", "UserName", "Password", False
    End If
objQTP.Test.Open strLocalPath,False,False
objQTP.Test.SaveAs strQCScriptPath,True, False  
</code>