What is the problem with this code? Pls reply ASAP

[seetu]

Dear Kishore pls use the following code.
it is working fine in my Environement.

Code:

Dim objFSO,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
objFile2.close