Länge von MP4 und MKV ermitteln

[santana]

Hallo liebe VBA Profis,

gibt es eine Möglichkeit die Spielfilmlänge von mp4 und mkv Dateien
per VBA auszulesen. Dies würde ich gerne mit einem Makro
machen und dann die Ergebnisse tabellarisch in Excel eintragen.

[Willie017]

hallo

zu VBA kann ich nichts sagen, aber mit Mp3tag kannst du deine Sammlung auch exportieren und dann in Excel einlesen

[santana]

Code:

Function GetProperties(file As String, propertyVal As Integer)
Set varFolder = CreateObject("Shell.Application").Namespace(Left(file, InStrRev(file, "\") - 1))
Set varFile = varFolder.ParseName(Right(file, Len(file) - InStrRev(file, "\")))
Debug.Print "Laufzeit: " & varFolder.GetDetailsOf(varFile, propertyVal)
End Function

Sub Spielfilmlänge()
Dim fileType, fileNames, movieFile
fileNames = Filter(Split(CreateObject("WScript.Shell").Exec("CMD /C DIR ""C:\Spielfilm\*" & fileType & """ /S /B /A:-D").StdOut.ReadAll, vbCrLf), ".")
For Each movieFile In fileNames
Call GetProperties(CStr(movieFile), 27)
Next
End Sub

Laufzeitermittlung von Filmen die im Ordner C:\Spielfilme abgelegt wurden.