vba - 使用 VBA 获取扩展文件属性

Question

尝试使用 Excel VBA 从磁盘上的文件中捕获所有文件属性，包括扩展属性。能够让它循环遍历文件并捕获基本属性(来自文件系统):

文件路径

文件名

文件大小

创建日期

上次访问日期

上次修改日期

文件类型

还想捕获来自文件本身的扩展属性:

作者

关键词

评论

最后作者

分类

主题

以及右键单击文件时可见的其他属性。

目标是创建文件服务器上所有文件的详细列表。

Answer 1

你说 loop .. 所以如果你想为一个目录而不是当前文档做这个；

Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir:   Set oDir = oShell.Namespace("c:\foo")

For Each sFile In oDir.Items
   Debug.Print oDir.GetDetailsOf(sFile, XXX) 
Next

其中 XXX 是属性列索引，例如 Author 为 9。
要列出可用索引供您引用，您可以将 for 循环替换为；

for i = 0 To 40
   debug.? i, oDir.GetDetailsOf(oDir.Items, i)
Next

快速获取单个文件/属性:

Const PROP_COMPUTER As Long = 56

With CreateObject("Shell.Application").Namespace("C:\HOSTDIRECTORY")
    MsgBox .GetDetailsOf(.Items.Item("FILE.NAME"), PROP_COMPUTER)
End With