12 lines
390 B
Plaintext
12 lines
390 B
Plaintext
|
<%
|
||
|
|
'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
|
||
|
|
%>
|