Various file examples

Displaying when a file was last accessed , modified and creation date.

File accessed

<%
'declare our variables
Dim objFSO , myFile
'create instances of the objects
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set myFile = objFSO.GetFile(Server.MapPath("sample.txt"))
'display information
Response.Write "The file was last accessed on " & myFile.DateLastAccessed
'delete our object variables
Set objFSO = Nothing
Set myFile = nothing
%>

File Created

<%
Dim objFSO , myFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set myFile = objFSO.GetFile(Server.MapPath("sample.txt"))
Response.Write "File created on " & myFile.DateCreated
Set myFile = Nothing
Set objFSO = Nothing
%>