datetime = FileDateTime(pathname)
Example Usage:
ASP Source Code:<% = FileDateTime( server.mappath("/New Folder/file.asp") ) %>
<% Private Function FileDateTime(byVal pathname) Dim objFSO, objFile On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(pathname) If Err Then FileDateTime = Null Else FileDateTime = CDate( objFile.DateLastModified ) End If Set objFile = Nothing Set objFSO = Nothing On Error GoTo 0 End Function %>