Schönen guten Morgen.

Ich brauche wieder einmal eine Unterstützung.

Wie kann ich GetDetailsOf für eine ganz bestimmte File auslesen? Ich habe viele Beispiele gefunden, in welchem jedoch jeweils ein Verzeichnis ausgewählt wurde, um dann die einzelnen Files "abzuklappern". Bei einem großen Verzeichnis ist das ein unnötiger Aufwand, wenn mich nur eine bestimmte File interessiert.

Mein - nicht funktionierender - Code:

Option Explicit
Sub GetInfos()
Const MyFile As String = "C:\FotoAlbum\Urlaub2024\Bild44.jpg"
Dim Pfad As String
Dim File As String
Pfad = Left(MyFile, InStrRev(MyFile, "\"))
File = Mid(MyFile, InStrRev(MyFile, "\") + 1)
With CreateObject("Shell.Application").Namespace(Pfad)
Debug.Print .GetDetailsOf(.Items.Item(File), 18)
End With
End Sub

Wer kann helfen?

Gruß Joschi