大家好，我们今日继续讲解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方法的意义是什么？