Question

Ok, it’s been a while since I’ve worked with classic asp so I’m a bit rusty. Here’s my question.

I’m trying to write a file to the file system using FSO. The code below is very simple. However, the file is not appearing and no errors are appearing. I know it’s running the code because I can add response.writes before and after this snippet and they both appear in the output. However, no file is created, no error is thrown. I’ve even changed it so it’s a bogus path to force an error. No dice. I added everyone to have read and write on the directory permissions. Still the same.

Ideas?

Here’s my code:

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("d:\test.txt", True)

'Display the contents of the text file
objTextStream.WriteLine "howdy"

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Answer 1

Try this:

<%

if Append = true then
   iMode = 8
else 
   iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile("C:\wwwroot\Test.txt", iMode, True)
oTextFile.Write "Test Content"
oTextFile.Close
set oTextFile = nothing
set oFS = nothing

%>

I tried this locally, after setting the permissions on my directory and it worked.

You can get the original source from here:
http://www.freevbcode.com/ShowCode.Asp?ID=89