VBA Make Explorer.exe删除文件属性

Question

我已经对此进行了数周的研究，无法找到解决方案。 令人惊讶的是，以前似乎没有人必须使用Excel VBA删除或设置.mp4文件的元数据…

我有一个Excel工作表，其中包含我要归因于相应文件的文件名和文件属性（标签，分类，注释等）。 例如：

Filename                   Tags               Classification
------------------------------------------------------------
Dad's birthday party.mp4   dad; me; my cat    1 star
Climbing Mt Everest.mp4    me; Jeff; Sam      5 stars

Scripting.FileSystemObject仅使我可以访问基本属性，例如属性：隐藏，存档等或修改日期等。

我想出了设置这些设置的最简单方法是使用Windows资源管理器，因为它具有一个名为“属性”的奇妙对话框，此外，它还具有“删除属性和个人信息”选项，我非常希望这样做。也使用。 你们对如何使用Explorer连接Excel有任何想法吗？ 当然，应该在VBA项目中添加参考吗？

提前致谢！！…

Answer 1

这只是有关如何访问属性的部分答案。 似乎没有一种简单的方法来修改属性，而无需进入特定文件类型的本质。 见这太问题对于一些设置属性的困难进行了讨论。

诀窍是不要遍历文件系统对象，而要使用可编写脚本的Shell对象 。 正如该网页所建议的那样，您需要包括对Microsoft Internet Controls和Microsoft Shell Controls and Automation引用。 然后，以下代码（基于this和this ）显示了如何访问属性：

Sub ExtendedFileDetails(FolderName As String, FileName As String)
    Dim myFolder As Folder
    Dim myItem As FolderItem
    Dim myShell As New Shell
    Dim i As Long
    Dim Headers(0 To 34) As Variant

    Set myFolder = myShell.Namespace(FolderName)
    Set myItem = myFolder.ParseName(FileName)

    For i = 0 To 34
        Headers(i) = myFolder.GetDetailsOf(myFolder.Items, i)
    Next i

    For i = 0 To 34
        Debug.Print i & vbTab & Headers(i) & vbTab & myFolder.GetDetailsOf(myItem, i)
    Next i
End Sub

（在编辑时：我刚刚读到某个地方，现在属性已超过35，请稍做试验。无论如何，您可能只需要几个属性，并且应该能够查询其实际索引）

测试运行：

Sub test()
    ExtendedFileDetails "C:\Users\jcoleman\Music\Pixies\Surfer Rosa", "07 Where Is My Mind-.wma"
End Sub

输出（略作编辑以删除个人详细信息）：

0   Name    07 Where Is My Mind-
1   Size    3.60 MB
2   Item type   Windows Media Audio file
3   Date modified   9/25/2014 9:49 AM
4   Date created    9/25/2014 9:49 AM
5   Date accessed   9/25/2014 9:49 AM
6   Attributes  A
7   Offline status  
8   Offline availability    
9   Perceived type  Audio
10  Owner   ******************
11  Kind    Music
12  Date taken  
13  Contributing artists    Pixies
14  Album   Surfer Rosa
15  Year    1988
16  Genre   Alternative
17  Conductors  
18  Tags    
19  Rating  Unrated
20  Authors Pixies
21  Title   Where Is My Mind?
22  Subject 
23  Categories  
24  Comments    
25  Copyright   
26  #   7
27  Length  00:03:53
28  Bit rate    ?128kbps
29  Protected   No
30  Camera model    
31  Dimensions  
32  Camera maker    
33  Company 
34  File description