FSO Error

[newqtp]

Hi All,
I've creating a text file and then trying to open that file for writing text into it but i'm getting error invalid procedure call.

Code:

Set fso=createobject("Scripting.FileSystemObject")
Set CFile=fso.createtextfile("c:\test.txt",true)
Set ofile=fso.opentextfile("c:\test.txt",forwriting,true) 'Here i'm getting
'error I've that file on my C drive I've tried Cfile.OpenTextFile
'Combination but that also not working
ofile.write("this is sample test data")&vbcrtl
ofile.write("making sure I've entered")

Thanks.

[newqtp]

used OpenAsTextStream(2, TristateUseDefault) 'forwriting default value is 2 and forreading default value is 1.
Now code will look like

Code:

set fso=createobject("scripting.FileSystemObject")
set f= fso.getfile(c:\test.txt")
set ofile=f.OpenAsTextStream(2, TristateUseDefault)
ofile.write "this is test" & Vbcrlf

But i want to try opentextfile command. Plz help on that.
Thanks

[somisays]

Hi,
Your code is right ,but if you use 2 instead of for writing then it is going to wrokout.

Use these values then you will get it.
Forwriting --- 2
ForAppending--- 8
ForReading .... 1

Code:

Set fso=createobject("Scripting.FileSystemObject")
'Set CFile=fso.createtextfile("c:\test.txt",true)
Set ofile = fso.OpenTextFile("c:\\test.txt", 2, True)
ofile.write "this is sample test data"
ofile.write "making sure I've entered"
ofile.close

Regards
Sridhar

[newqtp]

Thanks Sridhar..