文件修改的日期和时间

技巧1

文件修改的日期和时间

在VBA过程中如果需要获得文件最后修改的日期和时间，可以使用FileDateTi me函数，如下面的代码所示。

Sub myDateTim e()

Dim Stmp As String

Dim myDateTim e As Date Stmp= ThisWorkb ook.Path &"\"& ThisWorkb https://www.360docs.net/doc/c816571919.html,

myDateTim e= FileDateT ime(Stmp) MsgBox Stmp&"最后修改时间是："& Chr(13)& myDateTim e

End Sub 代码解析：

me过程使用消息框显示文件最后修改的日期和时间。FileDateTi me函数返回一个文件被创建或最后修改后的日期和时间，语法如下：FileDateT ime(pathn ame)

pathname 参数是必需的，用来指定文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

第4行代码使用变量Stmp保存代码所在工作簿的路径和名称。

第5行代码使用变量myDateTi me保存FileDateTi me函数返回的日期和时间。

myDateTi

me过程结

果如图

172?1所示

。

图 172?1最后修改的日期和时间