How to fetch the QC path from QTP?

[syedabu]

Hi!!!
We have a piece of code that runs into the QC folder structure and fetch the input excel file from the location where we stored for all the tests and create a folder in my local path and then while QTP runs, it fetches the datas from the local path. I do not want to happen it in the existing way. Actually we are using the query to fetch the testname. Like the same way, i need to fetch the path name and store it for a later use.
could u pls help me out in this.
Following is the code which fetches the file and store it my local box.
IF possible please alter this code in such a way to import directly to my script.

Code:

Code:

TestName = "TerminalCreation" Filename = GetAttachment(TestName) Public Function GetAttachment(TestName) Dim strTestName strTestName=TestName Set tdc=QCUtil.TDConnection Set TstFact=tdc.TestFactory Set TestList= TstFact.NewList("select TS_TEST_ID,TS_PATH from TEST where TS_NAME='"&strTestName&"'") Set strTestName=TestList.Item(1) Set AttFact=strTestName.Attachments Set AttachList=AttFact.NewList("") for each AttList in AttachList Longfilename=AttList.Name Set TestAttachStorage=AttList.AttachmentStorage TestAttachStorage.ClientPath="C:\Automation" AttList.Load True,"C:\Automation" Next GetAttachment=Longfilename End Function

Thanks in Advance.....