vb 获取文件的时间属性

最新推荐文章于 2019-04-26 00:03:32 发布

原创最新推荐文章于 2019-04-26 00:03:32 发布 · 1.3k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #access #file

本文介绍了一个使用VBScript编写的脚本，该脚本能显示指定文件的创建日期、最后访问日期及最后修改日期。通过创建Scripting.FileSystemObject对象并调用其GetFile方法来实现。

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