Will für beliebige Dateitypen (xls, mdb, pdf, doc,jpg usw.) alle Dateiinformationen auslesen, welche über Eigenschaften/Dateiinfo angezeigt werden (ohne diese Dateien zu öffnen). Habe was gefunden,das es im Prinzip zu tun scheint ("Shell.Application"; Namespace --> siehe unten). Allerdings werden nicht alle ausgelesen. Z.B. werden bei Excel- Dateien die "Stichwörter" und "Firma" und bei pdf- Dateien die "Quelle" nicht ausgegeben, obwohl diese unter Eigenschaften/Dateiinfo belegt wurden und dort auch angezeigt werden. Hat dazu jemand einen Tipp? Vielleicht kann man auch die Attribute auf andere Art auslesen?
'Dateieigenschaften einer Datei auslesen
Sub DateieigenschaftenSingle(strDatei As String, ByVal strPath As String)
Dim objShell As Object
Dim objFolder As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim varName, arrHeaders(34)
spalte = 14
zeile = 1
If Dir(strPath, 16) = "" Then
MsgBox "Der Ordner " & strPath & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("" & strPath & "")
For x = 0 To 33
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(zeile + x, spalte) = arrHeaders(x)
Next
Columns(spalte).Font.Bold = True
For Each varName In objFolder.Items
If varName = strDatei Then 'nur für eine Datei
For x = 0 To 33
Cells(zeile + x, spalte + 1) = objFolder.GetDetailsOf(varName, x)
Next
End If
Next
End Sub