Const ORDNERPFAD = "C:\Test\"
Dim FSO, Datei
Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each Datei In FSO.GetFolder(ORDNERPFAD).Files
  If LCase(FSO.GetExtensionName(Datei.Path)) = "m3u" Then
    Wscript.Echo "Wiedergabeliste ist bereits vorhanden!"
    WScript.Quit
  End If
Next
 
Set Wiedergabeliste = FSO.CreateTextFile(ORDNERPFAD & "wiedergabeliste.m3u", _
  True)
For Each Datei In FSO.GetFolder(ORDNERPFAD).Files
  If LCase(FSO.GetExtensionName(Datei.Path)) = "mp3" Then
    Wiedergabeliste.WriteLine Datei.Name
  End If
Next
Wiedergabeliste.Close
Wscript.Echo "Wiedergabeliste wurde erstellt!"