ASP
Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
Function FileDateTime(String)Date
Return a local file date and time.
Example
<% response.write "My local file was written on " & FileDateTime("files/sample.exe") %> Source Code <%
Function FileDateTime(filename) Dim objFSO, objFLE, filepath if mid(filename,2,1)<>":" and left(filename,2)<>"\\" then filepath = Server.MapPath(filename) else filepath=filename On Error Resume Next FileDateTime=0 Set objFSO = CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then Set objFLE = objFSO.GetFile(filepath) FileDateTime = objFLE.DateLastModified end if Set objFLE = Nothing: Set objFSO = Nothing On Error Goto 0 End Function %> |