怎么准确的取文件的修改时间？

Question

应该用API函数,如GETSYSTEMTIME,GETFILETIME,这样就不应该会忽快忽慢,
而是要快 8个小时.这的确是时区的关系. 取得的时间是 2个long类型的数,
转换后再把小时数 add 8.

Answer 1

DateLastModified 属性
         描述返回最后一次修改指定文件或文件夹的日期和时间。只读。语法object.DateLastModifiedobject 总是一个 file 或 Folder 对象。说明下面的代码用一个文件举例说明了 DateLastModified 属性的用法：Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified  
    MsgBox s, 0, "File Access Info"
End Sub

Answer 2

我已经研究出来了，我用的是GetFileInformationByHandle 函数，两位老兄没有分哦。^_^