Option Explicit
Const ORDNERPFAD = "E:\Musik\"
Dim FSO, Datei, MP3Liste(), InfoDateiPfad, m3uDatei, Item, i
Set FSO = CreateObject("Scripting.FileSystemObject")
InfoDateiPfad = ORDNERPFAD & "wiedergabeliste" & ".m3u"
i = 0
For Each Datei In FSO.GetFolder(ORDNERPFAD).Files
  Select Case LCase(FSO.GetExtensionName(Datei.Path))
    Case "m3u"
      Wscript.Echo "Wiedergabeliste ist bereits vorhanden!"
      WScript.Quit
    Case "mp3"
      ReDim Preserve MP3Liste(i)
      MP3Liste(i) = Datei.Name
      i = i + 1
    Case "nfo"
      InfoDateiPfad = ORDNERPFAD & FSO.GetBaseName(Datei.Path) & ".m3u"
  End Select
Next
 
Set m3uDatei = FSO.CreateTextFile(InfoDateiPfad, True)
For Each Item In MP3Liste
  m3uDatei.Writeline Item
next
m3uDatei.Close
Wscript.Echo "Wiedergabeliste '" & InfoDateiPfad & "' wurde erstellt!"