如何通过ACCESS获取指定文件的上级文件夹、创建、修改、访问时间等文件属性?如下给出一个自定义函数解决该问题。
代 码:
Public Function ShowFileAccessInfo(filespec As String)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(f.Name) & " 父级文件夹为:" & vbCrLf & UCase(f.ParentFolder) & vbCrLf
'通过File对象的ParentFolder 属性获取父级文件夹
s = s & "创建时间: " & f.DateCreated & vbCrLf
'通过File对象的DateCreated 属性获取创建时间
s = s & "上次访问时间: " & f.DateLastAccessed & vbCrLf
'通过File对象的DateLastAccessed 属性获取访问时间
s = s & "上次修改时间: " & f.DateLastModified
'通过File对象的DateLastModified 属性获取修改时间
MsgBox s, 0, "文件信息明细:"
End Function
演示图: