与大家分享如何获取文件的时间

作者：绿色风分类：时间：2022-08-18 浏览：120

楼主
chenlifeng

由于不知道如何发布自己的心得，故在提问中写下了：

在VBA过程中如果需要获得文件最后修改的日期和时间，可以使用FileDateTime函数，如下面的代码所示。
（有时候，由于操作的原因，修改时间会比创建时间要早）

Sub myDateTime()
Dim Stmp As String
Dim myDateTime As Date
Stmp = ThisWorkbook.Path & "\" & ThisWorkbook.Name
myDateTime = FileDateTime(Stmp)
MsgBox Stmp & "最后修改时间是：" & Chr(13) & myDateTime
End Sub

进一步总结，以后F:\新建文件夹为例：

Sub 显示修改时间()
Dim Fp$, Fn$
Fp = "F:\新建文件夹\"
Fn = Dir(Fp & "*.doc")
Do While Fn <> ""
MsgBox FileDateTime(Fp & Fn)
Fn = Dir
Loop
MsgBox "全部显示完成"
End Sub
Sub 显示创建时间()
On Error Resume Next
Dim fso As New Scripting.FileSystemObject
Dim Fp$, Fn$
Fp = "F:\新建文件夹\"
Fn = Dir(Fp & "*.doc")
Do While Fn <> ""
MsgBox fso.GetFile(Fp & Fn).DateCreated
Fn = Dir
Loop
MsgBox "全部显示完毕"
End Sub

2楼
leo7an

请帮我个忙好吗？
http://www.exceltip.net/thread-39696-1-1.html

3楼
xyf2210

谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表