|
Displaying Source Code(s)
|
|
FileDateTime Function
--------------------------------------------------------------------------------
Description : The FileDateTime function returns the time and
date a file was last modified. If the file is not found or an
error occurs during the processing of the function, Null is
returned.
<%
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
%>
--------------------------------------------------------------------------------
|
|
|
123
Eng