Dokumenteigenschaften auslesen

Ich bekomme bei der nachfolgenden Routine die Fehlermeldung "Laufzeitfehler 438" - Objekt unterstützt diese Eigenschaft oder Methode nicht. Der Debugger zeigt den Fehler in der markierten Zeile an.

Es wäre super, wenn mir hier jemand weiterhelfen könnte.



Sub DateienMitUnterordnernAuflisten()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.getfolder("U:\Vogt\Intranet\iso9001-word-excel")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 2

For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Not Right(objDatei.Name, 4) = ".jpg" Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
ActiveSheet.Cells(lngZeile, 1) = objVerzeichnis.Path
ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei.Name, 20)
lngZeile = lngZeile + 1
End If
Next objDatei

'Call UnterOrdnerAuslesen(objVerzeichnis)

End Sub

ActiveSheet.Cells(lngZeile, 3) = objVerzeichnis.GetDetailsOf(objDatei, 20)