c++如何获取文件时间_VBA代码解决方案的第79讲内容：如何获取文件信息

大家好，我们今日继续讲解VBA代码解决方案的第79讲内容：如何获取文件信息。在具体的代码编写中，我们往往会用到文件的信息。通过文件信息的识别来确定下一步的操作，那么如何能获得文件的信息呢？这时可以使用File对象的Getfile方法。

Getfile方法返回一个和指定路径中文件相对应的File对象，

语法如下：object.GetFile(filespec)

参数a) object是必须的，FileSystemObject对象的名称。b) filespec是必须的，指定文件的路径。

上述方法返回File的对象，通过file对象的常用属性就可以知道相关的信息，一般情况下对于属性有如下描述：

① Name 文件名称

② DateCreated 文件创建日期

③ DateLastModified 文件最后修改日期

④ DateLastAccessed 文件最后访问日期

⑤ ParentFolder 文件的父文件夹

⑥ Path 文件的完整路径

⑦ Type 文件类型

⑧ Size 以字节表示的文件大小

接下来我们看看下面的代码所示的过程

Sub MyFileinfo()

Dim MyFile As Object

Dim Str As String

Dim StrMsg As String

Str = ThisWorkbook.Path & "人员表单.txt"

Set MyFile = CreateObject("Scripting.FileSystemObject")

With MyFile.Getfile(Str)

StrMsg = StrMsg & "文件名称：" & .Name & Chr(13) _

& "文件创建日期：" & .DateCreated & Chr(13) _

& "文件修改日期：" & .DateLastModified & Chr(13) _

& "文件访问日期：" & .DateLastAccessed & Chr(13) _

& "文件保存路径：" & .ParentFolder

End With

MsgBox StrMsg

Set MyFile = Nothing

End Sub

代码解析：

MyFileinfo过程使用Getfile方法获取示例所在文件夹中的“人员表单.txt”文件的信息。

第5行代码将文件路径名称赋给变量Str。

第6行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

第7行代码使用Getfile方法返回一个File对象。

第8行到第12行代码根据File对象的属性取得文件信息，

运行Fileinfo过程使用消息框显示“人员表单.txt”文件的信息。

代码截图：

运行：

文件的信息都清楚的出现了。提醒：要注意信息安全。

今日内容回向：

1 如何能获取文件的信息？

2 Getfile方法的意义是什么？

欢迎大家到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。

工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。