Liste aller MP3-Titel als Inhaltsverzeichnis drucken

Ich habe auf meiner Festplatte zahlreiche MP3-Dateien in verschiedenen Ordnern gesammelt. Nun möchte ich eine Liste aller Titel anlegen und als Inhaltsverzeichnis drucken. Wie muss ich dafür vorgehen?

Diese Aufgabe erledigen Sie am besten mit dem Windows Scripting Host (WSH) und unserem VBSkript LISTMP3.VBS. Kopieren Sie diese Datei von der Heft-CD/-DVD unter CHIP-Code Praxis11 in einen beliebigen Ordner auf Ihr System. Alternativ können Sie das Skript auch in einen Text-Editor tippen und unter dem obigen Namen speichern.

Option Explicit

Dim listArgs
Dim objFileSystem
Dim objFolder, objSubFolder,
objFile, objCvsFile
Dim szFolder
Dim szCsvFile
Dim intLevel
Set listArgs = WScript.Arguments
Set objFileSystem = CreateObject(„Scripting.FileSystemObject“)
intLevel = 1
If listArgs.Count = 0 Then
szFolder = InputBox(„In welchem Ordner liegen die zu listenden MP3-Dateien?“,“Ordner auswählen“,“C:\“)
Else
szFolder = listArgs(0)
End If
szCsvFile = „C:\Temp\ListeMP3.csv“
szCsvFile = InputBox(„Name und Pfad der zu erstellenden Liste?“,“CVS-Datei benennen“, szCsvFile)
If Right(szCsvFile,4) <> „.csv“ Then
szCsvFile = szCsvFile & „.cvs“
End If
Set objCvsFile = objFileSystem.CreateTextFile(szCsvFile,true)
objCvsFile.Write „Name der Datei“ & „;“ & „Pfad der Datei“ & vbNewLine
ListFiles szFolder, intLevel
objCvsFile.Close
MsgBox „Die Datei „ & szCsvFile & „ wurde erstellt!“
function ListFiles(szFolder, intLevel)
If objFileSystem.FolderExists(szFolder) Then
Set objFolder = objFileSystem.GetFolder(szFolder)
For Each objFile In objFolder.Files
If Right(objFile.Name,4) <> „.MP3“ Then
objCvsFile.Write objFile.Name & „;“ & objFolder.Path & vbNewLine
End If
Next
For Each objSubFolder In objFolder.SubFolders
ListFiles objSubFolder.path, intLevel+1
Next
else
MsgBox „Angegebener Ordner „ & szFolder & „ existiert nicht!“
end if
end function
Nach dem Speichern klicken Sie im Windows-Explorer doppelt auf den Datei-Eintrag. Das Skript erkundigt sich zuerst nach einem Ordner, durchsucht ihn anschließend inklusive sämtlicher Unterverzeichnisse nach MP3-Dateien und schreibt das Suchergebnis (jeweils mit Name und Pfad der Datei) in eine Textdatei vom Typ CSV. In einem weiteren Dialog geben Sie nun einen Pfad und einen Namen für diese Datei ein, zum Beispiel »MP3-Inhalt.CSV«. Importieren Sie den Datensatz zur weiteren Bearbeitung und Formatierung in eine Tabellenkalkulation. Abschließend können Sie die Datei ausdrucken.

Übrigens: Sie können das Skript auch starten, indem Sie auf Ihrem Desktop eine Verknüpfung auf LISTMP3.VBS erzeugen und den zu analysierenden Ordner per Drag and Drop aus dem Windows-Explorer auf das Symbol dieser Verknüpfung ziehen.