How to write data to text file in QTP

Example -

Below Code will write data  to text file  in QTP


            content = "This will be in file "

            Set Fo = createobject("Scripting.FilesystemObject")
            Set f = Fo.openTextFile("c:\abc.txt",8,true)     'open in write mode
            f.Write (contents)
            f.Close
            Set f = nothing


This is how we can write the data to the text file  in QTP.