显示 100 纳秒粒度的 NTFS 时间戳

Question

据我所知，FAT 文件系统以 2 秒的粒度存储文件时间戳（修改日期等），而 NTFS 以 100 纳秒的粒度存储它们。

我使用 VBScript 和 FileSystemObject 来显示文件详细信息。函数 file.DateLastModified 以 1 秒精度显示日期（在 NTFS 上）。

有没有办法根据NTFS的内部存储粒度来精确地显示时间戳。我想象类似 8/9/2010 14:40:30,1234567

如果不使用 VBScript / FileSystemObject，还有其他方法吗？

Answer 1

文件时间戳在 NTFS 中以 FILETIME 形式保存，但毫秒部分不会传递给 Variant DateTime，因此 VBS 看不到它。不过 WMI 对象可以支持这一点。

Sub PrintTimestamp(sFilename)
  Set oWMI = GetObject("winmgmts:!\\.\root\cimv2")
  Set oFiles = oWMI.ExecQuery("Select * from CIM_DataFile where Name = '" & sFilename & "'")
  Set oDateTime = CreateObject("WbemScripting.SWbemDateTime")
  For Each oFile in oFiles
    oDateTime.Value = oFile.LastAccessed
    WScript.Echo oFile.Name & " " & oDateTime.GetVarDate & " " & oDateTime.Microseconds
  Next
End Sub
PrintTimestamp("c:\\temp\\demo.vbs")

Answer 2

通过本机 Windows API 可以轻松访问全精度文件时间。此 MSDN 文章介绍了如何执行此操作：文件时间。

我不知道有什么方法可以从 VBS 读取 64 位 FILETIME，特别是因为 VBS 本身不处理 64 位数字。有了 FILETIME 后，您可以使用 SWbemDateTime 解析它，不过。这是一个示例。