转：使用VBA代码获取磁盘文件的各种属性

wayy

最近在网络看到很多人问怎样获取文件的各种属性信息，大部分人喜欢用API来实现，比如文件的创建时间、更改时间、文件名等，但对标题等信息不容易得到，现简单介绍一下在VBA环境下的简单方法，以供参考。

在vb/vba环境下，引用Microsoft Shell Control And Automation,使用C:\windows\system32\SHELL32.dll;

使用函数GetDetailsOf即可获得文件的各种信息，具体信息有40项，

例：

Sub GetFileInfo()

Const  FileInfonum=10 ‘文件信息索引

Dim fs As New Shell

Dim fd As Folder

Dim fl As ShellFolderItem

Set fd = fs.Namespace("文件所在目录")

For Each fl In fd.Items

  Debug.Print fl.Name & "  " & fd.GetDetailsOf(fl, FileInfonum)

Next

End Sub

  文件信息索引：

No.	属性	No.	属性	No.	属性	No.	属性
0	名称	10	标题	20	流派	30	节目描述
1	大小	11	主题	21	持续时间	31
2	类型	12	类别	22	位速	32	音频采样大小
3	修改日期	13	页数	23	受保护	33	音频采样级别
4	创建日期	14	备注	24	摄影机型号	34	频道
5	访问日期	15	版权	25	相片拍照日期	35	公司
6	属性	16	艺术家	26	尺寸	36	描述
7	状态	17	唱片标题	27	空	37	文件版本
8	所有者	18	发行年	28	空	38	产品名称
9	作者	19	曲目号码	29	集名	39	产品版本

filecom

[em17][em17][em17][em17][em17][em17]

xdwy81129

学习了，谢谢

ddbb2008

我用07版 测试，显示错误。。。求解