How to read and write data to a file in QC using QTP

Hi,
How can we read a text file from QC using QTP. I need to read a text file saved in QC , process it and save a text file into QC with the results. How can I do that using QTP File System Object ?

Thanks,
Sai

Function initialization()
dim fso, msg
set fso = createobject("scripting.filesystemobject")
if (fso.fileexists("c:\p_qtp.ini")) then
fso.deletefile("c:\p_qtp.ini")
end if
set fso = nothing
call qc_create_folder()
if parameter("external_excel_flag")="true" then
setdata "reportpath",parameter("datatablepath")
setdata sexternal_excel,parameter("datatablepath")
setdata ssheetname,parameter("sheetname")
setdata bexternal_excel_flag,"true"
else var2=split(sqcresults&"\"&parameter("qc_excelreportpath"),"\")
var3=ubound(var2) reportfilename=var2(var3)
var4="" n2=ubound(var2)-1 for n1=0 to n2 var4=var4&var2(n1)&"\"
if n1=n2 then
var5=len(var4) qcreportpath=left(var4,var5-1)
end if
next
qc_importfile qcreportpath,reportfilename,getdata("files")
setdata "reportpath",getdata("files")&reportfilename
setdata "qcreportfilename",reportfilename
setdata "qcreportpath",qcreportpath end if
setdata "recovery","false"
setdata "qc_defectlog",parameter("qc_defectlog")
setdata "capture_screenshots",parameter("capture_screenshots")
setdata "qc_uploadscreenshots",parameter("qc_uploadscreenshots")
setdata "data_null",""
end function

Function QC_Create_Folder()
Dim fso, f,QCfolderpath

Set fso = CreateObject("Scripting.FileSystemObject")

QCfolderpath="C:\QC"&Month(Now)&day(now)&year(now)&Minute(time)&Second(Now)

Set f = fso.CreateFolder(QCfolderpath)

SetData "ParentFolder",QCfolderpath

SetData "Files",QCfolderpath&"\Files\"

SetData "ScreenshotPath",QCfolderpath&"\Screenshots\"

CreateSubFolder QCfolderpath,"Files"

CreateSubFolder QCfolderpath,"Screenshots"

Set fso = nothing

End Function

In this way u need to initialize the folder ...make a download of the file targetted......edit....and upload the file ...



let me know if u need more help