den nachfolgenden Code habe ich schon vor vielen Jahren - glaube ich - in diesem Forum gefunden, Autor ist K.Rola. Damit werden alle Dateieigenschaften der in einem Ordner befindlichen Dateien ausgelesen. Läuft TipTop und m.E. rasend schnell.
2 Fragen hätte ich allerdings dazu:
1.) Kann man den Code so abändern damit er auch alle Dateien von Unterordner mit einschließt und ausliest.
2.) Kann man eine zusätzliche Spalte generieren in der pro Datei der komplette Pfad angegeben wird.
Hier noch der Code:
Option Explicit
Sub Dateieigenschaften()
'von k.rola
Const STRFOLDER As String = "C:\Users\User\OneDrive\WalterOnedrive\Fotos" 'anpassen
Dim objShell As Object
Dim objFolder As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim varName, arrHeaders(34)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..." _
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
spalte = 1
For x = 0 To 33
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(1, spalte + x) = arrHeaders(x)
Next
Rows(1).Font.Bold = True
zeile = 2
For Each varName In objFolder.Items
For x = 0 To 33
Cells(zeile, spalte + x) = objFolder.GetDetailsOf(varName, x)
Next
zeile = zeile + 1
Next
Columns.AutoFit
Application.ScreenUpdating = True
End Sub
Besten Dank, Servus Walter