VBA使Explorer.exe删除文件属性

我已经做了几个星期的研究,现在找不到解决scheme。 这是惊人的似乎没有人之前必须通过使用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只允许我访问像属性这样的基本内容:隐藏,归档等或修改date等。

我想出了最简单的方法来设置这些将是使用Windows资源pipe理器,因为它有这个奇妙的对话框名为“属性” – 另外,它有一个选项“删除属性和个人信息,”我会热衷于也使用。 你们有什么想法如何连接Excel的资源pipe理器? 当然应该有一个你添加到VBA项目的参考?

提前致谢!!…

这只是关于如何访问属性的部分答案。 似乎没有简单的方法来修改属性而不涉及特定文件types的细节。 讨论设置属性的一些困难。

诀窍是不通过文件系统对象,而是使用脚本Shell对象 。 如该网页所示,您需要包含对Microsoft Internet ControlsMicrosoft Shell Controls and Automation引用。 然后,下面的代码(基于这个和这个 )展示了如何访问属性:

 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了 – 试验了一下,无论如何 – 你可能只需要less数几个属性,并且应该可以用Google的实际索引)

testing运行:

 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