Dateiinformationen auslesen (FSO)

[Theodor]

Hallo zusammen,

in den Dateieigenschaften werden verschiedene Informationen in Excel nachgehalten
unter anderem auch folgende Informationen:

"Title Dom Excel Biblio Master
Subject
Author N.N.
Keywords Dom Excel Biblio V0.1
Last author N.N.
Application name Microsoft Excel
Creation date 02.03.2022 07:49
Last save time 11.03.2022 10:40
Category DOM Excel Kat Master"

Ich kann zwar alle Eigenschaften auslesen aber nicht explizit auf einzelne beschränken.

Der Code

'Variablendeklaration
Dim Author As String
Dim Keywords As String
Dim Category As String


'Codesequenz

For Each FileItem In SourceFolder.Files


'Einstellung der Eigenschaften
Cells(r, 1).Formula = FileItem.Name
Cells(r, 2).Formula = FileItem.Path
Cells(r, 3).Formula = FileItem.Size
Cells(r, 4).Formula = FileItem.datecreated
->Cells(r, 5).Formula = FileItem.Author
->Cells(r, 6).Formula = FileItem.Keywords
->Cells(r, 7).Formula = FileItem.Category

r = r + 1

Next FileItem

führt bei den Zeilen mit dem Pfeil zu einem leeren Ergebnis...

Hat jemand eine Idee wie ich an die Informationen komme?

[Mase]

Vom Bereich VBScript ableiten:
Folder.GetDetailsOf-Methode (Shlobj \_ core.h) - Win32 apps | Microsoft Docs

[Theodor]

OK
Du meinst wohl das hier

dim objInfo

objInfo = objFolder.GetDetailsOf(objFolderItem, 2)

mit dem Wert -1 oder 4


Ich benötige aber derzeit nur "Keywords" und "Category".

Trotzdem Danke.

[Mase]

Dann ein weiterer Hinweis:
VBA for smarties: Files: properties and methods (snb-vba.eu)