Generating word file list in XML

[Pieter Theuns]

Hello,

I want to generate a word file list in my internet
explorer, the links should contain the word file title and
subject from the summary. I allready have an example how
to do it with PDF files. However there is the following
problem, it uses "GetPDFMetaData".

Below is the example for PDF, can anybody help me how to
adapt this for word documents?

Function CreateFileList_XML()
Dim myFSO
Dim objFile_XML
Dim myFolder
Dim myFolderCollection
Dim myFile
Dim strList
Dim i
Dim dicMetaData
Dim objItems
Dim strPath
Dim AError


Set myFSO = CreateObject( "Scripting.FileSystemObject" )

AError = FileURL_To_Path( DecodeURL(document.URL),strPath )

Set objFile_XML = myFSO.CreateTextFile( strPath
& "\filelist.xml", True, False )

objFile_XML.WriteLine "<?xml version=""1.0""
standalone=""yes"" ?>"
objFile_XML.WriteLine "<?xml-stylesheet type=""text/xsl""
href=""filelist.xsl""?>"
objFile_XML.WriteLine ""

Set myFolder = myFSO.GetFolder( strPath )
objFile_XML.WriteLine "<FileList FolderName=""" &
myFolder.Path & """>"

Set myFolderCollection = myFolder.Files
For Each myFile In myFolderCollection

If Right(myFile.Name,4) = ".doc" Then
Set dicMetaData = GetPDFMetaData( myFile )
If dicMetaData.Count > 0 Then
objItems = dicMetaData.Items
End If

objFile_XML.WriteLine "<File "
objFile_XML.WriteLine vbTab & "Name=""" & myFile.Name
& """"
objFile_XML.WriteLine vbTab & "CreationDate=""" &
myFile.DateCreated & """"
objFile_XML.WriteLine vbTab & "ModifiedDate=""" &
myFile.DateLastModified & """"
objFile_XML.WriteLine vbTab & "Size=""" & myFile.Size
& """"

objFile_XML.WriteLine vbTab & "Subject=""" &
dicMetaData.Item("Subject") & """"
objFile_XML.WriteLine vbTab & "SavedBy=""" &
dicMetaData.Item("Author") & """"

Set dicMetaData = Nothing
objFile_XML.WriteLine " />"
End If
Next

objFile_XML.WriteLine "</FileList>"
objFile_XML.Close
End Function