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

如何解决VBA 获取文件夹中的文件列表及其标签关键字

我正在尝试使用用户表单制作宏，在其中我将输入文件夹位置并列出该目录中的所有文件，并且也有文件标签，但我似乎无法弄清楚如何获取标签。到目前为止，我所拥有的是：

'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）：

.GetDetailsOf(Fileobject item,attribute nr)

Source

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 部分之后。

   '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 获取文件夹中的文件列表及其标签关键字

如何解决VBA 获取文件夹中的文件列表及其标签关键字

解决方法

相关推荐