What is the problem with this code? Pls reply ASAP

[seetu]

Dear Kishore Every thing is fine what you need to do is
Objects which u created names are mismatching so correct all names then u can run smoothly.

Code:

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

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

here is the code
let me kwow ur resukts