Document.Properties
17.03.2004 17:53:25
Alexander
Ich möchte gerne eine Liste an Dateien über eine Excel Applikation auslesen und anschließend das letzte Veränderungsdatum, sowie den Autor des Dokuments ausgeben lassen. Dazu verwende ich folgenden Code:
Sub Schaltfläche1_BeiKlick()
Set fs = Application.FileSearch
Set fo = CreateObject("Scripting.FileSystemObject")
With fs
.LookIn = "C:\Verzeichnis"
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set f = fo.GetFile(.FoundFiles(i))
Worksheets("Tabelle1").Cells(5 + i, 1).Value = f.Name
Worksheets("Tabelle1").Cells(5 + i, 2).Value = f.DateLastModified
Worksheets("Tabelle1").Cells(5 + i, 3).Value = f.BuiltinDocumentProperties(3)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
Beim Attribut BuiltinDocumentProperties gibt es Probleme. Wie kann ich mir die gewünschte Information ziehen, selbst wenn es sich nicht nur um MS-Dateien (doc, xls, ppt) handelt sondern z.B. auch pdf, htm...etc. Bitte möglichst mit Beispielcode.
Danke vorab.
Gruß aus Heidelberg
Alexander