ASP — File System

FileSystemObject

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
%>

Read File

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(Server.MapPath("/data.txt"), 1)

Do While Not file.AtEndOfStream
    line = file.ReadLine
    Response.Write(line & "<br>")
Loop

file.Close
Set file = Nothing
Set fso = Nothing
%>

Write File

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(Server.MapPath("/output.txt"), True)

file.WriteLine("Hello, World!")
file.WriteLine("Second line")

file.Close
Set file = Nothing
Set fso = Nothing
%>

Check File Exists

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")

If fso.FileExists(Server.MapPath("/data.txt")) Then
    Response.Write("File exists")
Else
    Response.Write("File not found")
End If

Set fso = Nothing
%>

File Properties

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(Server.MapPath("/data.txt"))

Response.Write("Size: " & file.Size)
Response.Write("Created: " & file.DateCreated)
Response.Write("Modified: " & file.DateLastModified)

Set file = Nothing
Set fso = Nothing
%>

Mini Practice

1. Read a file
2. Write a file
3. Check if file exists
4. Get file properties

Up Next

Continue with Database — database operations.