Handling file in QTP

[Ajit.2k6]

Hi Saket,
I am trying as you have said but getting the invalid call procedure or argument.
My code is:

Code:

Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")

    If (fso.FileExists ("c:\testfile.txt")) = True Then
Set tf = fso.OpenTextFile("c:\testfile.txt", ForAppending, True)

Else
   Set tf = fso.CreateTextFile("c:\testfile.txt", True)
  
   End If
   ' Write a line with a newline character.
'  tf.WriteLine("CashOnHand    TotalPortfolioWorth    ShareHoldingValue")
   ' Write a line.
   tf.Write (CashOnHand&"    "&TotalPortfolioWorth&"    "&ShareHoldingValue)
   tf.Close

Please correct me where i am wrong.

Thanks;

Ajit