Here is some code adapted from Chip Pearson's website:
Sub MrsSmith()
Dim FileName As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "C:\alpha keyword.xls"
DSO.Open sfilename:=FileName
MsgBox (DSO.SummaryProperties.Keywords)
DSO.Close
End Sub
It examines a single file and displays the keywords property. For your
application, you would need to use FileName as an array to examine a group of
files and you must also insure that you have DSO 2.0 installed.
See:
http://www.cpearson.com/excel/docprop.htm
