<% 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 %>