Function FileModTimestamp(strFilename) 'Returns a high-precision last-modified timestamp like 20140331211026.649060-420 Dim wmi, fil, fils, ts Set wmi = GetObject("winmgmts:\\.\root\CIMV2") Set fils = wmi.ExecQuery("Select * from CIM_DataFile where Name = '" & Replace(strFilename, "\", "\\") & "'", "WQL", 48) For Each fil in fils ts = fil.LastAccessed Next FileModTimestamp = ts End Function