分享一个关于获取指定文件的文件属性的自定义函数。

如何通过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

演 示：

【Access自定义函数】ShowFileAccessInfo–获取指定文件的文件属性【Access软件网】