vb里如何读取文件的创建更新时间等信息

Question

http://www.21code.com/codebase/?pos=down&id=233
参考此代码

Answer 1

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

使用filedatetime即可取的文件的创建时间等信息
如：date1=filedatetime("c:\file1.txt")