Office: Länge von mp3-Dateien auslesen

Hallo,

ich habe auf einer mobilen Festplatte eine große Hörbuch-Sammlung. Im Root-Verzeichnis sind die Ordner benannt mit Autor und Titel. Im Ordner liegen entweder direkt die mp3-Dateien oder aber eine weitere Ordnerebene (CD1, CD2...etc).
Ich bin nun dabei, in jedem Ordner eine txt-Datei anzulegen in der ich Daten wie Genre, Art (Hörspiel oder Lesung), Sprecher und evtl. noch Sonstiges eintrage. Alle Einträge Zeilenweise.

Nun würde ich gerne alle Ordner in einer Excel Tabelle auflisten und in den folgenden Spalten die Daten aus der txt-Datei einfügen sowie in einer letzten Spalte die Gesamtspielzeit aller in dem entsprechenden Ordner liegenden mp3-Dateien.

Ich hoffe, jemand kann mir helfen. Google konnte es leider nicht.

Gruß
Carsten

:)

 

Hallo Carsten,

probier sowas:
Code:
Dim i As Long
Sub mp3_dateien_auflisten()
Dim objShell, objFolder
Dim BrowseDir, varName, datum
Set objShell = CreateObject("Shell.Application")
Set BrowseDir = objShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
If Not BrowseDir Is Nothing Then
Cells.Clear
Application.ScreenUpdating = False
i = 1
Cells(1, 1) = "Name"
Cells(1, 2) = "Pfad"
Cells(1, 3) = "Autor"
Cells(1, 4) = "Titel"
Cells(1, 5) = "Interpret"
Cells(1, 6) = "Genre"
Cells(1, 7) = "Dauer"
If MsgBox("Unterordner duchsuchen?", vbYesNo, "Abfrage") = vbYes Then
rekursiv BrowseDir.Items().Item().Path, True
Else
rekursiv BrowseDir.Items().Item().Path, False
End If
End If
Columns.AutoFit
Application.ScreenUpdating = True
Set objShell = Nothing
End Sub
Function rekursiv(ordner, unterordner As Boolean)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ordner)
For Each varName In objFolder.Items
Debug.Print varName.Type
If varName.Type = "Dateiordner" And unterordner = True Then
i = i + 1
Cells(i, 2) = varName.Path
rekursiv varName.Path, True
ElseIf varName.Type <> "Dateiordner" And varName.Type = "MP3-Audio" Then
i = i + 1
Cells(i, 1) = varName
Cells(i, 2) = varName.Path
For j = 0 To 51
Select Case objFolder.GetDetailsOf(, j)
Case "Autor"
Cells(i, 3) = Trim(objFolder.GetDetailsOf(varName, j))
Case "Titel"
Cells(i, 4) = Trim(objFolder.GetDetailsOf(varName, j))
Case "Interpret"
Cells(i, 5) = Trim(objFolder.GetDetailsOf(varName, j))
Case "Genre"
Cells(i, 6) = Trim(objFolder.GetDetailsOf(varName, j))
Case "Dauer"
Cells(i, 7) = Trim(objFolder.GetDetailsOf(varName, j))
End Select
Next
End If
Next
Set objFolder = Nothing
End Function


mfg Anton

 

Hallo Anton,

danke für Deine Antwort. Leider klappt das nicht.

Ich kann den Ordner am Anfang auswählen. Wenn ich die Abfrage nach den Unterordnern dann mit "ja" beantworte, werden alle Unterordner mit kompletter Pfadangabe aufgeführt. Die Reihenfolge in der das passiert ist mir dabei noch nicht ganz klar geworden. Die txt-Dateien (heißen übrigens immer "Details.txt") werden nicht ausgelesen und auch die Spieldauer wird nicht angegeben.

Wenn ich die Frage nach den Unterordnern mit "nein" beantworte Schreibt er mir in Zeile 1 die Überschriften (Name, Autor, Titel, Interpret etc.) und stoppt dann.

Ich hätte gerne nur den Ordnernamen der Hauptordner (ohne Pfadangabe), dann die näheren Infos aus der txt-Datei und die Gesamtlänge aller mp3-Dateien innerhalb des Hauptordners, also der ersten Ebene, bzw. die Gesamtspielzeit aller Dateien in evtl. vorhandenen Unterordnern.

Falls ich mich unverständlich ausgedrückt habe, hier ein Beispiel:


Festplatte V:\

Ordner1 - enthät 10 mp3-Dateien + Details.txt
Ordner2 - enthät Details.txt und Unterordner CD1 und CD2 mit je 7 mp3-Datein
Ordner3 - enthält 25 mp3 Dateien + Details.txt


In der Excelmappe soll das dann so aussehen:

Ordner1 - Lesung - Sprecher - Thriller - 6:05:22
Ordner2 - Hörspiel - Sprecher - Krimi - 2:17:34
Ordner3 - Hörspiel - Sprecher - Comedy - 4:02:02

Ich hoffe, das war verständlicher.

Gruß
Carsten

 

Hallo Carsten,

wo stehen diese Daten (Lesung - Sprecher - Thriller - 6:05:22), in Details.txt?Wenn ja, wie sieht die Details.txt aus?

mfg Anton

 

Hallo Anton,

in jedem Hauptordner, also immer in der ersten Ordnerebene, liegt eine Details.txt. Die Datei ist Zeilenweise aufgebaut, d.h. 1. Zeile Art, 2. Zeile Genre, 3. Zeile Sprecher, 4. Zeile Sonstiges.

Also etwa so:

Lesung
Thriller
Wolfgang Pampel
gekürzte Lesung


Gruß
Carsten

P.S. Sorry, wenn ich mich so selten melde, aber ich bin im Außendienst, also nur früh morgens und spät abends am Rechner.

 

Hallo Carsten,

probier's hiermit:
Code:
Dim dauer
Dim i As Long

Sub mp3_dateien_auflisten()
Dim objShell, objFolder
Dim BrowseDir, varName, datum
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set BrowseDir = objShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
If Not BrowseDir Is Nothing Then
i = 1
Cells.Clear
Columns("F:F").NumberFormat = "hh:mm:ss"
Application.ScreenUpdating = False
For Each o1 In fso.GetFolder(BrowseDir.Items().Item().Path).SubFolders
dauer = CDate("00:00:00")
Cells(i, 1) = o1.Name
If (fso.FileExists(o1 & "\Details.txt")) Then
j = 2
Set DieDatei = fspenTextFile(o1 & "\Details.txt", 1, False)
Do While DieDatei.AtEndOfStream <> True
Cells(i, j) = DieDatei.ReadLine
j = j + 1
Loop
DieDatei.Close
End If
dauer_ermitteln (o1)
Cells(i, 6) = dauer
i = i + 1
Next
End If
Columns.AutoFit
Application.ScreenUpdating = True
Set objShell = Nothing
End Sub
Function dauer_ermitteln(ordner)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ordner)
For Each varName In objFolder.Items
Debug.Print varName
If varName.Type <> "Dateiordner" And varName.Type = "MP3-Audio" Then
For j = 0 To 51
If objFolder.GetDetailsOf(, j) = "Dauer" Then
dauer = dauer + CDate(Trim(objFolder.GetDetailsOf(varName, j)))
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 ist fast perfekt, nur wird die Spieldauer nicht angezeigt. In jeder Zeile steht 00:00:00.

Gruß
Carsten

 

Hallo Carsten,

ersetze
Debug.Print varName
durch
Debug.Print varName & " " & varName.Type
und poste hier den Inhalt des Direktfensters(Strg+G im VBEditor).

mfg Anton

 

Hallo Anton,

vor Ausführung des Makros steht dort folgendes:

[auto_open] <
[SetupFunctionIDs] <
[SetupFunctionIDs] >
[PickPlatform] <
[PickPlatform] >
[VerifyOpen] <
[VerifyOpen] WorkbookName = [ATPVBADE.XLA]REG
[VerifyOpen] AnalysisPath = F:\Programme\Microsoft Office\Office10\MAKRO\ANALYSE\ > 2
[RegisterFunctionIDs] <
[RegisterFunctionIDs] >
[auto_open] >

Danach das hier:

301 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
302 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
303 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
304 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
305 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
306 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
307 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
308 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
309 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
CD 4 Dateiordner
401 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
402 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
403 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
404 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
405 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
406 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
407 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
408 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
409 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
CD 5 Dateiordner
501 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
502 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
503 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
504 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
505 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
506 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
507 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
508 - Tommy Jaud - Hummeldumm.mp3 MP3-Audioformat (MP3)
Millionär.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 01 - Leberkäs mit Hut.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 02 - Der Plan der Ente.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 03 - Picknicker.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 04 - Track04.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 05 - Track05.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 06 - Flitterflatter.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 07 - Track07.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 08 - Track08.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 09 - Einfach.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 10 - Track10.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 11 - Track11.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD1 - 12 - Track12.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 01 - 23 Anrufe in Abwesenheit.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 02 - Track02.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 03 - Keks.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 04 - Track04.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 05 - Track05.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 06 - Himmel über Bayern.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 07 - Depp lag.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 08 - Die Kerstin am Handy von Beder.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 09 - Buenos Aires.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 10 - Track10.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 11 - Track11.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 12 - Mondgesicht.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD2 - 13 - plus 54.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 01 - Nachtisch.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 02 - Track02.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 03 - Spitz.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 04 - Track04.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 05 - Piantao.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 06 - Track06.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 07 - bienchensumm@yahoo.de.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 08 - Scheisserei.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 09 - Track09.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 10 - Milonga.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 11 - Track11.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 12 - Gäschdezahnbürschdle.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD3 - 13 - Wer hat an der Uhr gedreht¿.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 01 - Bauchgeweih.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 02 - Track02.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 03 - Track03.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 04 - Dance with me baby.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 05 - Track05.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 06 - Choreographie.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 07 - Spiderwoman.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 08 - Track08.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 09 - Kick it like Beckham.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 10 - Track10.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 11 - Das beste Bier der Welt.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 12 - plus 1 Tag.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 13 - Jetzt und schnell.mp3 MP3-Audioformat (MP3)
Christop Maria Herbst liest - Tommy Jaud - Resturlaub - CD4 - 14 - Zu spät.mp3 MP3-Audioformat (MP3)
Vollidiot (CD1) Dateiordner
01 - Intro.mp3 MP3-Audioformat (MP3)
02 - Macadamia Nudge Matsch.mp3 MP3-Audioformat (MP3)
03 - Der Saftschubser-Gentleman.mp3 MP3-Audioformat (MP3)
04 - Danke, WMF!.mp3 MP3-Audioformat (MP3)
05 - Lala.mp3 MP3-Audioformat (MP3)
06 - Die haltlose Killerschwuchtel.mp3 MP3-Audioformat (MP3)
07 - Josef-Stalin-Charme-Schule.mp3 MP3-Audioformat (MP3)
Vollidiot (CD2) Dateiordner
01 - Die Rote Eule Fraktion.mp3 MP3-Audioformat (MP3)
02 - Schicklgruber.mp3 MP3-Audioformat (MP3)
03 - Tall Latte MacchiatoArmageddon.mp3 MP3-Audioformat (MP3)
04 - Paula.mp3 MP3-Audioformat (MP3)
05 - Der Shrimpsdöner.mp3 MP3-Audioformat (MP3)
06 - Tag am Meer.mp3 MP3-Audioformat (MP3)
07 - Der Paula-Plan.mp3 MP3-Audioformat (MP3)
08 - SoyJulianComotellamas¿.mp3 MP3-Audioformat (MP3)
Vollidiot (CD3) Dateiordner
01 - Krebsrote Flachpfeife.mp3 MP3-Audioformat (MP3)
02 - Nacht am Meer.mp3 MP3-Audioformat (MP3)
03 - Im Separee der horizontalen Verkeilungen.mp3 MP3-Audioformat (MP3)
04 - Wenn Sie eine Zitrone haben.mp3 MP3-Audioformat (MP3)
05 - Die Glühwürmchenseilbahn.mp3 MP3-Audioformat (MP3)
06 - Vollidiot.mp3 MP3-Audioformat (MP3)
07 - Das Gurkenrennen.mp3 MP3-Audioformat (MP3)
Das Labyrinth der Geister.txt Textdokument
Tony Hillerman - Das Labyrinth der Geister (1993).mp3 MP3-Audioformat (MP3)
01-ulrich_sonnenschein--vorrede-oma.mp3 MP3-Audioformat (MP3)
02-ulrich_sonnenschein--kreativer_opportunismus-oma.mp3 MP3-Audioformat (MP3)
03-ulrich_sonnenschein--schutz_der_freiheit-oma.mp3 MP3-Audioformat (MP3)
04-ulrich_sonnenschein--vom_demokratischen_nutzen_des_kapitals-oma.mp3 MP3-Audioformat (MP3)
05-ulrich_sonnenschein--die_welt_als_politische_handfestigkeit-oma.mp3 MP3-Audioformat (MP3)
06-ulrich_sonnenschein--die_solide_basis_der_zahl-oma.mp3 MP3-Audioformat (MP3)
07-ulrich_sonnenschein--froehliche_familienbande-oma.mp3 MP3-Audioformat (MP3)
08-ulrich_sonnenschein--gute_aussichten-oma.mp3 MP3-Audioformat (MP3)
09-ulrich_sonnenschein--parlamentarische_weckrufe-oma.mp3 MP3-Audioformat (MP3)
10-ulrich_sonnenschein--not_macht_erfinderisch-oma.mp3 MP3-Audioformat (MP3)
11-ulrich_sonnenschein--die_suche_nach_der_wahrheit-oma.mp3 MP3-Audioformat (MP3)
12-ulrich_sonnenschein--perfekt_auslaendisch-oma.mp3 MP3-Audioformat (MP3)
01 Das Foucaultsche Pendel Dateiordner
01-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
02-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
03-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
04-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
05-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
06-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
07-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
08-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
09-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
10-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
11-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
12-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
13-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
14-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
15-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
16-01 Das Foucaultsche Pendel.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel Dateiordner
02 Das Foucaultsche Pendel_01.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_02.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_03.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_04.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_05.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_06.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_07.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_08.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_09.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_10.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_11.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_12.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_13.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_14.mp3 MP3-Audioformat (MP3)
02 Das Foucaultsche Pendel_15.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendel Dateiordner
03 Das Foucaultsche Pendele_01.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_02.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_03.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_04.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_05.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_06.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_07.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_08.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_09.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_10.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_11.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_12.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_13.mp3 MP3-Audioformat (MP3)
03 Das Foucaultsche Pendele_14.mp3 MP3-Audioformat (MP3)
Der Name der Rose CD6 Dateiordner
Der Name der Rose Teil 1.mp3 MP3-Audioformat (MP3)
Der Name der Rose Teil 2.mp3 MP3-Audioformat (MP3)
Der Name der Rose Teil 3.mp3 MP3-Audioformat (MP3)
Der Name der Rose Teil 4.mp3 MP3-Audioformat (MP3)
Der Name der Rose Teil 5.mp3 MP3-Audioformat (MP3)
Der Name der Rose Teil 6.mp3 MP3-Audioformat (MP3)
001_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
002_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
003_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
004_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
005_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
006_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
007_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
008_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
009_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
010_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
011_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
012_Die_Legende_von_Sleepy_Hollow.mp3 MP3-Audioformat (MP3)
CXCL152298.jpg JPEG-Bild
[auto_open] <

Gruß
Carsten

 

Hallo Carsten
T'schuldigung fuer's einmischen.;-))
Waere es nicht besser mit einem Programm wie z.B. MP3Tag zu arbeiten??
Damit Ordner auslesen, Csv Tabelle innerhalb des Programms anpassen.
Dort kann man Ordner Namen usw. anpassen und eintragen lassen.
gruss hary

 

Hallo Carsten,

ersetze
If varName.Type "Dateiordner" And varName.Type = "MP3-Audio" Then
durch
If varName.Type "Dateiordner" And InStr(1, varName.Type, "MP3-Audio") 0 Then
dann müsste alles funktionieren.

mfg Anton

 

Hallo Anton,

jetzt gibt es einen Laufzeitfehler '13', im Debugger bleibt er bei folgender Zeile stehen:

dauer = dauer + CDate(Trim(objFolder.GetDetailsOf(varName, j)))

Gruß
Carsten

 

Hallo Hary,

ich hab mir das Prog mal angesehen, aber alleine das Einlesen der Dateien dauert fast eine Stunde und dann bekomme ich nur die Spielzeiten der Einzeldateien, nicht aber die Gesamtzeit der jeweiligen Oberordner und das ist für Hörbücher ja deutlich interessanter.

Trotzdem danke für den Vorschlag.

Gruß
Carsten

 

Hallo Carsten,

ersetze die Funktion dauer_ermitteln durch diese hier und poste die Ausgabe des Direktfensters (paar Zeilen).
Code:
Function dauer_ermitteln(ordner)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ordner)
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
Debug.Print Trim(objFolder.GetDetailsOf(varName, j))
Exit For
End If
Next
ElseIf varName.Type = "Dateiordner" Then
dauer_ermitteln (varName.Path)
End If
Next
Set objFolder = Nothing
End Function


PS Bei mir sieht es so aus:
00:06:19
00:07:54
00:03:14
00:02:15
00:01:40
00:05:16
00:03:41
00:04:07

mfg Anton

 

Hallo Anton,

im direkt-Fenster steht folgendes:

00:04:25
00:03:35
00:03:28
00:02:27
00:02:15
00:07:07
00:02:11
00:04:04
00:04:15
00:03:35
00:06:30
00:04:40
00:03:33
00:04:47
00:03:35
00:02:49
00:03:19
00:02:53
00:04:27
00:03:38
00:04:53
00:03:50
00:03:47
00:03:22
00:03:16
00:02:41
00:04:00
00:02:42
00:02:21
00:02:08
00:02:43
00:02:40
00:02:22
00:03:14
00:02:59
00:02:46
00:03:17
00:03:08
00:04:17
00:03:40
00:04:00
00:04:21
00:05:00
00:04:51
00:03:13
00:03:06
00:04:00
00:05:36
00:05:43
00:02:14
00:02:31
00:03:08
00:02:22
00:03:44
00:03:27
00:03:49
00:03:01
00:04:09
00:03:46
00:07:27
00:04:16
00:03:17
00:03:21
00:02:40
00:06:46
00:03:10
00:03:17
00:02:14
00:05:00
00:02:17
00:02:34
00:02:53
00:03:45
00:04:09
00:05:58
00:01:50
00:03:52
00:05:09
00:03:02
00:02:42
00:05:05
00:08:33
00:02:30
00:02:38
00:04:01
00:04:26
00:04:29
00:04:33
00:03:56
00:03:50
00:03:23
00:03:35
00:03:20
00:03:06
00:03:25
00:03:54
00:02:57
00:04:27
00:03:33
00:02:42
00:04:18
00:02:56
00:04:03
00:04:31
00:03:06
00:03:38
00:05:28
00:03:49
00:04:23
00:05:07
00:05:11
00:03:54
00:03:57
00:04:29
00:04:19
00:04:46
00:03:19
00:04:04
00:03:30
00:03:03
00:03:39
00:04:42
00:04:03
00:04:18
00:04:35
00:04:41
00:04:58
00:04:02
00:04:29
00:03:45
00:04:53
00:04:43
00:04:33
00:03:36
00:02:38
00:03:08
00:03:05
00:04:36
00:02:02
00:04:06
00:03:16
00:04:43
00:02:26
00:04:15
00:03:56
00:05:12
00:03:20
00:03:28
00:03:06
00:04:18
00:03:56
00:04:01
00:04:19
00:04:29
00:03:54
00:05:16
00:03:20
00:06:09
00:06:38
00:05:02
00:03:08
00:03:46
00:05:29
00:02:43
00:04:43
00:03:29
00:02:29
00:06:54
00:03:31
00:04:29
00:08:32
00:05:52
00:07:19
00:02:23
00:03:29
00:04:48
00:03:30
00:03:53
00:04:14
00:02:18
00:03:39
00:04:36
00:04:39
00:04:55
00:04:15
00:02:37
00:03:51
00:05:12
00:03:28
00:04:59
00:05:51
00:03:33
00:04:53
00:03:30
00:05:43
00:05:06
00:04:40
00:04:26
00:05:33

Wenn ich das Makro starte kommt nun der Laufzeitfehler '-2147417848(80010108)'
Die Methode 'GetDetailsOf' für das Objekt 'Folder3' ist fehlgeschlagen.

Fast vergessen, der Debugger hängt bei: Debug.Print Trim(objFolder.GetDetailsOf(varName, j))


Gruß
Carsten