Asp > Files

FileDateTime Function

FileDateTime Function

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