What is the problem with this code? Pls reply ASAP

[seetu]

Dear Kishore
Here is the code for the same

Code:

Dim obfso, objFile1,objFile2
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile1=objFSO.CreateTextFile("C:\testfile.txt", true)
objfile1.close

Const ForWriting=2
Set objFSO=CreateObject("Scripting.FileSystemObject")
set objFile2=objFSO.OpenTextFile("C:\testfile.txt", ForWriting, True)

objFile2.write str

I think it works
let me know if u need further assistance.