获取文件信息

admin

1. Sub Fileinfo()
   & z' U' @7 x( z; b
2.      Dim MyFile As Object
   - S4 {' z2 h. a0 C( H! F+ N
3.      Dim Str As String
   
4.      Dim StrMsg As String
   
5.      Str = ThisWorkbook.Path & "\123.xls"
   1 Q+ k; O' j; [: Y; f. L" C
6.      Set MyFile = CreateObject("Scripting.FileSystemObject")
   
7.      With MyFile.Getfile(Str)
   0 Q4 U% I# ?  L. P4 f/ C  V% j' o/ u
8.         StrMsg = StrMsg & "文件名称：" & .Name & Chr(13) _
   
9.             & "文件创建日期：" & .DateCreated & Chr(13) _
   5 p+ l4 M& Z5 C& c/ j( u
10.             & "文件修改日期：" & .DateLastModified & Chr(13) _
    6 v! P5 z9 k8 \# d1 a/ F8 Z
11.             & "文件访问日期：" & .DateLastAccessed & Chr(13) _
    
12.             & "文件父文件夹：" & .ParentFolder & Chr(13) _
    2 {# r: F5 ]2 G' o; P
13.             & "文件完整路径：" & .Path & Chr(13) _
    
14.             & "文件类型：" & .Type & Chr(13) _
    
15.             & "文件大小：" & .Size / 1024 & "KB"
    % }% t- v, r. x4 l
16.      End With
    3 P" o/ ?( [: R1 v; i
17.      MsgBox StrMsg
    " ?: _3 I+ o$ x& d) ^+ q% |
18.      Set MyFile = Nothing  '
    5 m1 J: R9 B3 x, s, I4 s
19. End Sub

复制代码

& G$ ~: B* ^# A/ ?8 r2 {

代码解析：

Fileinfo过程使用Getfile方法获取示例所在文件夹中的“123.xls”文件的信息。

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

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

第7行代码使用Getfile方法返回一个File对象。Getfile方法返回一个和指定路径中文件相对应的File对象，语法如下：

object.GetFile(filespec)

参数object是必需的，FileSystemObject对象的名称。

参数filespec是必需的，指定文件的路径。

第8行到第12行代码根据File对象的属性取得文件信息，File对象的常用属性如表格180‑1所示。

属性	描述
Name	文件名称
DateCreated	文件创建日期
DateLastModified	文件最后修改日期
DateLastAccessed	文件最后访问日期
ParentFolder	文件的父文件夹
Path	文件的完整路径
Type	文件类型
Size	以字节表示的文件大小

表格180-1     File对象的常用属性

, x0 T1 _5 E+ b5 N1 ~$ e
3 o9 H6 u. X7 Q* s2 {3 G* L  J 获取（123.xls）文件信息.zip (15.08 KB, 下载次数: 135)

2020-4-6 21:49 上传

点击文件名下载附件

3 f' S3 y7 H& T1 Q0 u