rc-Dev - The resource site for developers

Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
I use then myself on most of my projects, so you can rest assured they were optimized over time and are very reliable.
You can use them on your personal or commercial projects.
If you find them usefull to you, please make a donation (nomatter how small) to help me keep this content online for free.

Function ReadFile(String)String Read a local (text) file contents.
Usage ReadFile (File path) You can specify both absolute or relative file paths. The function returns the text file contents.

Example

<%
response.write ReadFile("help/index.html")
%>

Source Code

<%
Function ReadFile(filename)
dim fso, filepath, file
set fso = server.createObject("Scripting.FileSystemObject")
if mid(filename,2,1)<>":" and left(filename,2)<>"\\" then filepath = Server.MapPath(filename) else filepath=filename
if fso.FileExists(filepath) Then
   Set file = fso.OpenTextFile(filepath,1)
   ReadFile=file.ReadAll
   set file=nothing
   end if
set fso=nothing
End Function
%>