Create file object - doesn't create anything!!

[Guest_imported]

Hello!!
I'd really apreciate any help on this... I've spent hours and it doesn't go anywhere...
There is no bug, but, the file is not created (or updated if it's there)... basically, nothing happens...
The code is:
Dim Fso
Dim fileObject
dim f
const ForWriting = 2
const TristateTrue = 0
Set fso = CreateObject("Scripting.FileSystemObject&quot


If FSO.FileExists("c:\test.inc&quot then
Set fileObject = fso.GetFile("c:\test.inc&quot
set f = fileObject.OpenAsTextStream (ForWriting,TristateTrue)
f.write result

Else
set fileObject = fso.CreateTextFile("c:\test.inc", TristateTrue)
Set f = fspenTextFile("c:\test.inc", ForWriting, TristateTrue)
f.Write result

fileObject.Close

Response.Write f.name & " file created"
End If
Set FSO = Nothing

Thank you sooo much!!!!

 

[culshaja]

Do you have the correct NTFS permissions? If you don't then the file cannot be written.

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305