rc-Dev - The resource site for developers

Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
I use then myself on most of my projects, so you can rest assured they were optimized over time and are very reliable.
You can use them on your personal or commercial projects.
If you find them usefull to you, please make a donation (nomatter how small) to help me keep this content online for free.

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