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资源管理器，因为它有一个名为＆＃39; Properties＆＃39; - 此外，它还可以选择删除属性和个人信息，＆＃39;我也热衷于使用它。你们有没有想过如何用Excel连接Excel？当然应该有一个你添加到VBA项目的引用吗？

提前致谢!! ...

Answer 1

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

诀窍是不通过文件系统对象，而是使用Scriptable Shell Object。如该网页所示，您需要包含对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

VBA Make Explorer.exe删除文件属性

1 个答案: