VBA获取文件夹中文件及其标记（关键字）的列表_Vba_Tags_Metadata_Keyword

VBA获取文件夹中文件及其标记（关键字）的列表

vba tags

VBA获取文件夹中文件及其标记（关键字）的列表,vba,tags,metadata,keyword,Vba,Tags,Metadata,Keyword,我试图用一个userform创建一个宏，在这个宏中，我输入一个文件夹位置，列出该目录中的所有文件，并且还有文件标记，但我似乎不知道如何获取标记。到目前为止，我得到的是： 'Disable screen update Application.ScreenUpdating = False 'Declare variables Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Dim LastR

我试图用一个userform创建一个宏，在这个宏中，我输入一个文件夹位置，列出该目录中的所有文件，并且还有文件标记，但我似乎不知道如何获取标记。到目前为止，我得到的是：

'Disable screen update
Application.ScreenUpdating = False

'Declare variables
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim LastRow As Long



Range("A2:E2" & LastRow).ClearContents

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder(FolderLocation_TextBox.Value)

i = 1

For Each oFile In oFolder.Files
    Cells(i + 1, 1) = oFile.Name
    i = i + 1
Next oFile

'Enable screen update
Application.ScreenUpdating = True

这就是清单。我试着去做

Cells(i + 1, 1) = oFile.Tags

但那没用。我还发现这与代码有关：

oFile.BuiltinDocumentProperties("Keywords").Value

它说它不支持这个属性或方法。总的来说，我正在尝试获取所有文件及其标记的列表，稍后我将尝试从excel编辑所述文件标记

有人能帮我弄清楚这个吗？对于元数据提取这样简单的事情来说似乎有点太复杂了

编辑：

找到有助于解决此问题的内容并编辑了我的代码：

'Declare variables
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim LastRow As Long
Dim oShell As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oShell = CreateObject("Shell.Application")

Set oFolder = oFSO.GetFolder(FolderLocation_TextBox.Value)

i = 1

For Each oFile In oFolder.Files
    Cells(i + 1, 1) = oFile.Name
    On Error Resume Next
    Cells(i, 2) = oFile.GetDetailsOf(oFile, 18)
    i = i + 1
Next oFile

但它似乎也不会导入任何标记

假设我们有包含一些文件的文件夹：

然后，我们确实可以使用

.GetDetailsOf

从文件中获取“标记”，并将文件作为项目对象检索，我们可以从文件中获取属性

Option Explicit

Sub GetFileAttributes()
'Based on the code from: http://www.vbaexpress.com/kb/getarticle.php?kb_id=405

Dim ws As Worksheet
Dim i As Long
Dim FolderPath As String
Dim objShell, objFolder, objFolderItem As Object
Dim FSO, oFolder, oFile As Object
 
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
FolderPath = "G:\Till\0262529629\" 'Set folderpath

Set ws = ActiveWorkbook.Worksheets("Sheet1") 'Set sheet name

ws.Range("A1:K1").Value = Array("Path", "File Name", "Date Accessed", "Date Modified", "Date Created", "Item Type", "Size", "Availability", "Perceived type", "Comments", "Tags")

Set FSO = CreateObject("scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(FolderPath)

i = 2 'First row to print result

For Each oFile In oFolder.Files
On Error Resume Next 'If any attribute is not retrievable ignore and continue
    Set objFolder = objShell.Namespace(oFolder.Path)
    Set objFolderItem = objFolder.ParseName(oFile.Name)
    
    ws.Cells(i, 1).Value = oFolder.Path                             'Folder Path
    ws.Cells(i, 2).Value = objFolder.GetDetailsOf(objFolderItem, 0)
    ws.Cells(i, 3).Value = objFolder.GetDetailsOf(objFolderItem, 5)
    ws.Cells(i, 4).Value = objFolder.GetDetailsOf(objFolderItem, 3)
    ws.Cells(i, 5).Value = objFolder.GetDetailsOf(objFolderItem, 4)
    ws.Cells(i, 6).Value = objFolder.GetDetailsOf(objFolderItem, 2)
    ws.Cells(i, 7).Value = objFolder.GetDetailsOf(objFolderItem, 1) 'Size
    ws.Cells(i, 8).Value = objFolder.GetDetailsOf(objFolderItem, 8)
    ws.Cells(i, 9).Value = objFolder.GetDetailsOf(objFolderItem, 9)
    ws.Cells(i, 10).Value = objFolder.GetDetailsOf(objFolderItem, 24)
    ws.Cells(i, 11).Value = objFolder.GetDetailsOf(objFolderItem, 18) 'Tags
    i = i + 1
On Error Resume Next
Next

Application.ScreenUpdating = True
End Sub

最终结果：

可以检索以下文件属性（计入isladogs）：

更新如果您想循环一个文件的所有文件属性，可以添加这段代码。它将为您提供每个文件的所有属性，然后您可以筛选出一个特定属性，并查看它出现的次数：）

在上述代码的i=i+1部分之后插入代码

   'i = i + 1
    
    
    Dim j As Long
    Dim lrow As Long
    lrow = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row 'Last row for the attribute column.
    
    For j = 0 To 320 'Loop through all the possible attributes
        ws.Cells(lrow + 1, 14).Value = objFolder.GetDetailsOf(Null, j) 'File Attribute 
        ws.Cells(lrow + 1, 15).Value = objFolder.GetDetailsOf(objFolderItem, j) 'File Attribute Value
        lrow = lrow + 1
    Next j
    
'On Error Resume Next

输出示例：

是您可以使用VBA的FileSystemObject访问文件对象的完整属性列表。没有什么比得上

.Tags

，但您可能对

.Attributes

感兴趣，从我得到的信息来看，该属性是写保护？我正在寻找一个名为tagsCan的文件的元数据。你链接到告诉我们“tag”是什么的东西，和/或给出示例？文件属性本质上是将文件标记为“只读”、“隐藏”或“系统”的标志，或这些标志的组合。告诉我们你想从“标签”中获取什么信息/元数据，而不是问我们标签在哪里。啊，绝对是这样！根据：标记是指定给文件的关键字。把它们想象成一个人的特征：就像你把一个人描述为“高个子”、“滑稽”、“黑发”等等，你会把一个文件标记为“重要”、“税务信息”、“只是为了好玩”或“工作”。很高兴这对你有帮助：），如果你还有任何问题，请告诉我，我会尽力回答你。快乐编码=）！！事实上我是。。。在编号34、277和134下有关于文件描述的选项，但实际上没有一个选项从文件中获取描述。您可以看到，在windows资源管理器中，我有两个描述选项（都称为描述），其中一个始终为空，但另一个最常为空。该描述数据来自Solidworks文件属性。我想知道是否有一种方法可以在不反复尝试的情况下精确定位该属性的数字300次：啊，这是一个非常好的问题！我没有使用Solidworks：（.我还注意到，即使对于相同的文件类型，文件属性也会有所不同，这使得很难确定哪些属性是相关的/通常填充的//可能不是最好的解决方案；我会选择我感兴趣的所有文件，然后循环浏览这些文件。获取一些关于哪些属性通常比较流行的统计信息然后只在最终代码中包含这些属性…为了帮助您，我通过循环属性更新了代码，这样您就不需要手动执行：）我运行了它，结果发现没有一个属性是我要查找的。我知道Solid works文件属性是作为扩展属性存储的，就像标记、注释等。我看到了一个宏，让您可以从excel编辑这些属性：因此，这些属性中的一个始终是windows资源管理器中也可用于请参见扩展属性的其他部分，以便了解：（.真的很有趣。你完全正确，它有额外的属性，即某种自定义属性。我尝试了一些，但没有程序，也没有任何这些文件的经验。似乎你应该能够通过使用

.GetCustomProperty（FieldName，type）读取文件并获取属性

，但是您似乎需要安装该应用程序。我也尝试过，但没有成功。

Full list of file attributes available from GetDetailsOf function
=================================================================
NOTE: attributes returning a value will depend on file type

0 - Name
1 - Size
2 - Item type
3 - Date modified
4 - Date created
5 - Date accessed
6 - Attributes
7 - Offline status
8 - Availability
9 - Perceived type
10 - Owner
11 - Kind
12 - Date taken
13 - Contributing artists
14 - Album
15 - Year
16 - Genre
17 - Conductors
18 - Tags
19 - Rating
20 - Authors
21 - Title
22 - Subject
23 - Categories
24 - Comments
25 - Copyright
26 - #
27 - Length
28 - Bit rate
29 - Protected
30 - Camera model
31 - Dimensions
32 - Camera maker
33 - Company
34 - File description
35 - Program name
36 - Duration
37 - Is online
38 - Is recurring
39 - Location
40 - Optional attendee addresses
41 - Optional attendees
42 - Organiser address
43 - Organiser name
44 - Reminder time
45 - Required attendee addresses
46 - Required attendees
47 - Resources
48 - Meeting status
49 - Free/busy status
50 - Total size
51 - Account name
52 - 
53 - Task status
54 - Computer
55 - Anniversary
56 - Assistant's name
57 - Assistant's phone
58 - Birthday
59 - Business address
60 - Business city
61 - Business country/region
62 - Business P.O. box
63 - Business postcode
64 - Business county/region
65 - Business street
66 - Business fax
67 - Business home page
68 - Business phone
69 - Call-back number
70 - Car phone
71 - Children
72 - Company main phone
73 - Department
74 - Email address
75 - Email2
76 - Email3
77 - Email list
78 - Email display name
79 - File as
80 - First name
81 - Full name
82 - Gender
83 - Given name
84 - Hobbies
85 - Home address
86 - Home city
87 - Home country/region
88 - Home P.O. box
89 - Home postcode
90 - Home county/region
91 - Home street
92 - Home fax
93 - Home phone
94 - IM addresses
95 - Initials
96 - Job title
97 - Label
98 - Surname
99 - Postal address
100 - Middle name
101 - Mobile phone
102 - Nickname
103 - Office location
104 - Other address
105 - Other city
106 - Other country/region
107 - Other P.O. box
108 - Other postcode
109 - Other county/region
110 - Other street
111 - Pager
112 - Personal title
113 - City
114 - Country/region
115 - P.O. box
116 - Postcode
117 - County/Region
118 - Street
119 - Primary email
120 - Primary phone
121 - Profession
122 - Spouse/Partner
123 - Suffix
124 - TTY/TTD phone
125 - Telex
126 - Web page
127 - Content status
128 - Content type
129 - Date acquired
130 - Date archived
131 - Date completed
132 - Device category
133 - Connected
134 - Discovery method
135 - Friendly name
136 - Local computer
137 - Manufacturer
138 - Model
139 - Paired
140 - Classification
141 - Status
142 - Status
143 - Client ID
144 - Contributors
145 - Content created
146 - Last printed
147 - Date last saved
148 - Division
149 - Document ID
150 - Pages
151 - Slides
152 - Total editing time
153 - Word count
154 - Due date
155 - End date
156 - File count
157 - File extension
158 - Filename
159 - File version
160 - Flag colour
161 - Flag status
162 - Space free
163 - 
164 - 
165 - Group
166 - Sharing type
167 - Bit depth
168 - Horizontal resolution
169 - Width
170 - Vertical resolution
171 - Height
172 - Importance
173 - Is attachment
174 - Is deleted
175 - Encryption status
176 - Has flag
177 - Is completed
178 - Incomplete
179 - Read status
180 - Shared
181 - Creators
182 - Date
183 - Folder name
184 - Folder path
185 - Folder
186 - Participants
187 - Path
188 - By location
189 - Type
190 - Contact names
191 - Entry type
192 - Language
193 - Date visited
194 - Description
195 - Link status
196 - Link target
197 - URL
198 - 
199 - 
200 - 
201 - Media created
202 - Date released
203 - Encoded by
204 - Episode number
205 - Producers
206 - Publisher
207 - Season number
208 - Subtitle
209 - User web URL
210 - Writers
211 - 
212 - Attachments
213 - Bcc addresses
214 - Bcc
215 - Cc addresses
216 - Cc
217 - Conversation ID
218 - Date received
219 - Date sent
220 - From addresses
221 - From
222 - Has attachments
223 - Sender address
224 - Sender name
225 - Store
226 - To addresses
227 - To do title
228 - To
229 - Mileage
230 - Album artist
231 - Sort album artist
232 - Album ID
233 - Sort album
234 - Sort contributing artists
235 - Beats-per-minute
236 - Composers
237 - Sort composer
238 - Disc
239 - Initial key
240 - Part of a compilation
241 - Mood
242 - Part of set
243 - Full stop
244 - Colour
245 - Parental rating
246 - Parental rating reason
247 - Space used
248 - EXIF version
249 - Event
250 - Exposure bias
251 - Exposure program
252 - Exposure time
253 - F-stop
254 - Flash mode
255 - Focal length
256 - 35mm focal length
257 - ISO speed
258 - Lens maker
259 - Lens model
260 - Light source
261 - Max aperture
262 - Metering mode
263 - Orientation
264 - People
265 - Program mode
266 - Saturation
267 - Subject distance
268 - White balance
269 - Priority
270 - Project
271 - Channel number
272 - Episode name
273 - Closed captioning
274 - Rerun
275 - SAP
276 - Broadcast date
277 - Program description
278 - Recording time
279 - Station call sign
280 - Station name
281 - Summary
282 - Snippets
283 - Auto summary
284 - Relevance
285 - File ownership
286 - Sensitivity
287 - Shared with
287 - Shared with: Homegroup
288 - Sharing status
288 - Sharing status: Shared
289 - 
289 - : Available
290 - Product name
291 - Product version
292 - Support link
293 - Source
294 - Start date
295 - Sharing
296 - Sync status
297 - Billing information
298 - Complete
299 - Task owner
300 - Sort title
301 - Total file size
302 - Legal trademarks
303 - Video compression
304 - Directors
305 - Data rate
306 - Frame height
307 - Frame rate
308 - Frame width
309 - Video orientation
310 - Total bitrate
311 - 
312 - 
313 - 
314 - 
315 - 
316 - 
317 - 
318 - 
319 - 
320 -

   'i = i + 1
    
    
    Dim j As Long
    Dim lrow As Long
    lrow = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row 'Last row for the attribute column.
    
    For j = 0 To 320 'Loop through all the possible attributes
        ws.Cells(lrow + 1, 14).Value = objFolder.GetDetailsOf(Null, j) 'File Attribute 
        ws.Cells(lrow + 1, 15).Value = objFolder.GetDetailsOf(objFolderItem, j) 'File Attribute Value
        lrow = lrow + 1
    Next j
    
'On Error Resume Next