使用VBA获取扩展文件属性

Question

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

• 文件路径
• 文件名
• 文件大小
• 创建
• 日期 上次访问
• 日期 上次修改
• 文件类型

还想捕获随之而来的扩展属性从文件本身：

• 作者
• 关键字
• 评论
• 最后作者
• 类别
• 主题

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

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

Answer 1

你说循环..所以如果你想对目录而不是当前文档执行此操作；

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

Answer 2

您可以通过 .BuiltInDocmementProperties 获得此信息。

例如：

Public Sub PrintDocumentProperties()
    Dim oApp As New Excel.Application
    Dim oWB As Workbook
    Set oWB = ActiveWorkbook

    Dim title As String
    title = oWB.BuiltinDocumentProperties("Title")

    Dim lastauthor As String
    lastauthor = oWB.BuiltinDocumentProperties("Last Author")

    Debug.Print title
    Debug.Print lastauthor
End Sub

请参阅此页面，了解可以通过以下方式访问的所有字段： http:// /msdn.microsoft.com/en-us/library/bb220896.aspx

如果您尝试在客户端外部执行此操作（即关闭 Excel 并运行 .NET 程序中的代码），您需要使用 DSOFile .dll。

Answer 3

我终于能够让它满足我的需求。

旧的投票代码不能在 Windows 10 系统上运行（至少不是我的）。下面引用的 MS 库链接提供了有关如何实现此功能的最新示例。我的示例将它们与后期绑定一起使用。

https://learn.microsoft.com/en-us/ windows/win32/shell/folder-getdetailsof。

我的计算机上的属性代码有所不同，就像上面提到的那样，大多数属性代码都会返回空白值，即使它们不是。我使用 for 循环遍历所有这些内容，发现标题和主题仍然可以访问，这对于我的目的来说已经足够了。

Private Sub MySubNamek()
Dim objShell  As Object 'Shell
Dim objFolder As Object 'Folder

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("E:\MyFolder")

If (Not objFolder Is Nothing) Then
Dim objFolderItem As Object 'FolderItem
Set objFolderItem = objFolder.ParseName("Myfilename.txt")
        For i = 0 To 288
           szItem = objFolder.GetDetailsOf(objFolderItem, i)
           Debug.Print i & " - " & szItem
       Next
Set objFolderItem = Nothing
End If

Set objFolder = Nothing
Set objShell = Nothing
End Sub

Answer 4

'vb.net
'Extended file stributes
'visual basic .net sample 

Dim sFile As Object
        Dim oShell = CreateObject("Shell.Application")
        Dim oDir = oShell.Namespace("c:\temp")

        For i = 0 To 34
            TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(oDir, i) & vbCrLf
            For Each sFile In oDir.Items
                TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(sFile, i) & vbCrLf
            Next
            TextBox1.Text = TextBox1.Text & vbCrLf
        Next

Answer 5

幸运的是

，当您调用时，如果 objFolderItem is Nothing，则

objFolder.GetDetailsOf(objFolderItem, i)

返回的字符串是属性的名称，而不是其（未定义的）值
例如，当 i=3 时，它返回“修改日期”

对 I 的所有 288 个值执行此操作，可以清楚地了解为什么大多数文件类型会导致它返回空白
例如 i=175 是“水平分辨率”