io l'ho usato

Dim file, fs, f, LM

Set fs = Server.CreateObject("Scripting.FileSystemObject")
file = Server.mapPath("../DB/db.mdb")
Set f = fs.GetFile(file)
Lm = f.datelastmodified
Response.Write ("Data ultima modifica: " & FormatDateTime(LM, 0))
Set f = Nothing
Set fs = Nothing

funziona