Open and Read files using the File Scripting Object

The example code below will open a text file that resides in the directory 'fsofolder' on the C drive and write out all the contents.

<%
Dim oFilesys, oFile, sFileContents
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFile = oFilesys.OpenTextFile("c:\fsofolder\newfile.txt")
sFileContents = oFile.ReadAll
oFile.close
Set oFile=nothing
Set oFilesys=nothing
Response.write(sFileContents)
%>

If you have any code snippets to share with full credit given then send an email to Codesnippets - You'll receive full credit and a link back to your site.

ASP.NET 3.5/2.0 Web Hosting: 3 Months FREE – Click Here!