FileSystemObject to Read Text Files

<%
' Read from test file
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strFileName = "/oak/test.txt"
const fsoForReading = 1

If objFSO.FileExists("/oak/test.txt") then
	'The file exists, so open it and output its contents
	Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
	Response.Write "" & objTextStream.ReadAll & ""
	objTextStream.Close
	Set objTextStream = Nothing
Else
	'The file did not exist
	Response.Write strFileName & " was not found."
End If

'Clean up
Set objFSO = Nothing

%>