16 lines
438 B
Plaintext
16 lines
438 B
Plaintext
|
<%
|
||
|
|
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
|
||
|
|
%>
|