怎样可以得到文件的,创建日期等文件属性,

Question

我想得到一个文件的打开方式的图标
创建日期
修改时间
访问时间等文件属性,分别保存在变量里面

Answer 1

Private Sub Command1_Click()
    MsgBox ShowFileAccessInfo("d:\test.bak")
End SubFunction ShowFileAccessInfo(filespec)
    Dim fso, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "创建时间： " & f.DateCreated & vbCrLf
    s = s & "修改时间： " & f.DateLastModified & vbCrLf
    s = s & "访问时间： " & f.DateLastAccessed
    ShowFileAccessInfo = s
End Function

Answer 2

用FileSystemObject对象就可以搞定了
用API同样也可以搞定的，不过用FSO好用一点。