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.
hallo
zu VBA kann ich nichts sagen, aber mit
Mp3tag kannst du deine Sammlung auch exportieren und dann in Excel einlesen
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.