Excel VBA - GetDetailOf verbuggt
08.11.2017 18:24:29
MickH74
ich hatte mir für meine Filmsammlung in VBA ein kleines Tool geschrieben, dass aus jeder Video-Datei einige Eigenschaften ausliest.
Die Eigenschaft habe ich über GetDetailsOf gelesen und in eine Tabelle geschrieben.
Gelesen wurden die Eigenschaften:
0 = Dateiname
1 = Dateigröße
27 = Länge (Dauer)
310 = Horiz. Auflösung
314 = Gesamtbitrate
315 = Audioformat
321 = Video Codec
Das ganze über diese Schleife, wobei x im Array ArrEigenschaft die jeweilige Nummer der Dateieigenschaft hält.
Code:
For Each varName In objFolder.Items
If varName.Type "Dateiordner" Then
For x = 1 To 7
Sheets("Filme").Cells(LngRow + 1, x) = objFolder.GetDetailsOf(varName, ArrEigenschaft(x))
Next
End if
Next
Heute starte ich das Tool, um die Liste zu aktualisieren, aber nun werden ganz andere Eigenschaften ausgelesen.
Statt der horiz. Auflösung wird nun die Bildrate ausgegeben. Video- und Audiocodec bleiben komplett leer und die Bitrate stimmt nicht mehr. Oder bei Codec steht nun sowas wie: {34363248-0000-0010-8000-00AA00389B71} statt HEVC (H265 Main 10 @L6.1).
Ich habe gedacht, vielleicht sind die Nummern der Dateieigenschaft mit dem Fall Creators Update von Win 10 geändert worden und darum habe ich eine Schleife programmiert, die mir alle Dateieigenschaften von 0 bis 323 ausgibt. Aber auch in der ganzen Liste sind die Felder für Audio- und Videocodec leer bzw. krytisch und die Bitrate falsch. Die horiz. Auflösung finde ich nun bei 311 statt 310.
Hat jemand eine Idee?
Danke schon mal und viele Grüße,
Mick