Set a=createobject("Scripting.filesystemobject")
Set b=a.opentextfile("E:\raju\1.txt",2) {1-reading mode, 2-
writing mode, 8- appending mode }
While b.atendofline<>true
y=b.readline      ---- Read the line on particular 
mentioned fine
	
b.writeline "I Love QTP" --- write the line on particular 
mentioned file

Wend


i think it's working proerly, if u have any quarries plz 
let me know
raju.gudla@gmail.com
9823257761

Result = "The test is passed"
Set a=createobject("Scripting.filesystemobject")
Set b=a.opentextfile("E:\raju\1.txt",2)
b.writeLine Result
b.close
Set a = Nothing
Set b = Nothing

dim fso,f,x,y

Set fso=createobject("Scripting.filesystemobject")
Set f=fso.opentextfile("path of the file",1/2/8) {1-reading 
mode, 2-writing mode, 8- read and write mode }
While f.atendofline<>true
x=f.readline      'it reads the value

In notepad file u have to put the data and attached to this 
program to run the file morethan one time.