Office: Länge von mp3-Dateien auslesen

Hallo Carsten,

noch eine Variante:
Code:
Function dauer_ermitteln(ordner)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ordner)
On Error Resume Next
For Each varName In objFolder.Items
If varName.Type <> "Dateiordner" And InStr(1, varName.Type, "MP3-Audio") <> 0 Then
For j = 0 To 51
If objFolder.GetDetailsOf(, j) = "Dauer" Then
dauer = dauer + CDate(Trim(objFolder.GetDetailsOf(varName, j)))
If Err.Number <> 0 Then
Debug.Print varName & vbTab & Trim(objFolder.GetDetailsOf(varName, j))
Err.Clear
End If
Exit For
End If
Next
ElseIf varName.Type = "Dateiordner" Then
dauer_ermitteln (varName.Path)
End If
Next
Set objFolder = Nothing
End Function


mfg Anton

 

Hallo Anton,

das sieht schon gut aus, allerdings habe ich wegen der längeren Lauffzeit erst mit einem Ordner mit nur zehn Hörbüchern getestet. Bei dreien davon liefert das Makro nach wie vor als Ergebnis 00:00:00. Warum weiß ich nicht, ich werd' mal sehen ob ich bei den Dateien unterschiede finde.

Ansonsten...genial. Vielen Dank.

Jetzt trotzdem noch zwei Fragen:

Was muss ich ändern, damit er die Liste erst ab Zeile 3 füllt? Und, was sicherlich komplizierter ist - Kann man es so einrichten, dass das Makro Änderungen, also neue Ordner, einfügt, ohne alles komplett neu zu bearbeiten?

Heute Nachmittag werde ich mal alles abarbeiten lassen, ich melde mich dann nochmal.

Gruß
Carsten

 

Hallo Anton,

es läuft noch nicht alles richtig. Wie gesagt, gibt er bei manchen Ordnern überhaupt keine Laufzeit an, teilweise eine definitiv falsche (z.B. Hörspiel mit ca. 1 Std. wird mit 3 min. angegeben.)

Hast Du noch eine Idee?

Gruß
Carsten

 

Hallo Carsten,

Nein,habe ich nicht.
Und im Code steht alles drin ,um festzustellen , woran es liegt.

mfg Anton

 

Hallo Anton,

sorry, ich war beruflich unterwegs, daher erst jetzt meine Antwort.

Ich werde mal versuchen, mich durch den Code zu arbeiten und das Problem zu finden.

Ansonsten vielen Dank für Deine tolle Arbeit. So weit wäre ich alleine definitiv nie gekommen.

Gruß
Carsten