Const ww = 200
Const wh = 50

savefilename$ = RequestFile$("Wohin sollen die Lieder gespeichert werden?", "txt", 1)
If savefilename$ = "" Then End
dirname$ = RequestDir$("Welchen Ordner soll ich auslesen?")
If dirname$ = "" Then End
rekursive = Proceed("Unterordner auch Scannen?")
If rekursive = -1 Then End

file = WriteFile(savefilename$)

If file = 0 Then End

Global anzahl = 0

window = CreateWindow("Mp3 Search", (ClientWidth(Desktop())-ww)/2, (ClientHeight(Desktop())-wh)/2, ww, wh, Desktop(), 1)
Global label = CreateLabel("0 Mp3s gefunden.", 0, 0, ClientWidth(window), ClientHeight(window), window)

ReadMp3DirToFile(file, dirname$, rekursive)

WriteLine file, anzahl+" Mp3s insgesammt."

CloseFile file

Notify "Suche beendet, "+anzahl+" Mp3s gefunden."

End

Function ReadMp3DirToFile(file, dirname$, rekursiv)
	dir = ReadDir(dirname$)
	filename$ = NextFile$(dir)
	
	If Right$(dirname$, 1) <> "\" Then dirname$ = dirname$+"\"

	While filename$ <> ""
		ganzname$ = dirname$+filename$
		Select FileType(ganzname$)
		Case 1
			If Right$(filename$, 4) = ".mp3" Then
				WriteLine file, Left(filename$, Len(filename$)-4)
				anzahl = anzahl + 1
				SetGadgetText label, anzahl+" Mp3s gefunden."
			End If
		Case 2
			If filename$ <> "." And filename$ <> ".." Then
				If rekursiv Then ReadMp3DirToFile(file, dirname$+filename$, rekursiv)
			End If
		End Select
		filename$ = NextFile$(dir)
	Wend
	
	CloseDir dir
End Function