#include-once
#include <ID3_v3.4.au3>
#include <Array.au3>
#include <File.au3>
#include <string.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <ListboxConstants.au3>
#include <GuiStatusBar.au3>
#include <GuiListView.au3>
#include <Sound.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>

Const $Versionsnummer = "Version 1.0.11"

Local $STARTPFAD
Global $FILECOUNTER, $TEST99 = 0
Global $Titel, $Album, $Artist, $Track
Global $Filename
Global $ZielPFAD_MUSIK, $ZielPFAD_Sampler, $ZielPFAD_Hoerspiele, $ID3Gui, $zaehler, $Knopf
Global $NeuerDateiname_Musik, $NeuerDateiname_Hoerbuch, $NeuerDateiname_Sampler
Global $Titel2, $Album2, $Artist2, $Track2
Global $CleanUp_Aktiv

Const $Text_DE_Datei_1 = "\Track14.MP3", $Datei_2 = "\Track15.MP3", $Datei_3 = "\Gollum_asp_DGH#1.MP3"
Const $Text_DE_Musik_1 = "B\B.B King\B.B King - 100 Greatest Rock Guitar Solos - The Thrill Is Gone.mp3"
Const $Text_DE_Musik_2 = "C\Celine Dion\Celine Dion - Best Of 1 - My Heart Will Go On.mp3"
Const $Text_DE_Musik_3 = "Interpret[1]\Interpret\Interpret - Album - Titel.mp3"
Const $Text_DE_Sampler_1 = "BRAVO Hits 16\BRAVO Hits 16 - 15 - Sqeezer - Saturday Night Party Single.mp3"
Const $Text_DE_Sampler_2 = "BRAVO Hits 16\BRAVO Hits 16 - 14 - Captain Jack - Together And Forever.mp3"
Const $Text_DE_Sampler_3 = "Album\Album - Track - Interpret - Titel.mp3"
Const $Text_DE_hsp_1 = "Frank Schätzing\Frank Schätzing - GEFAHR - 15 -  Finale.mp3"
Const $Text_DE_hsp_2 = "Frank Schätzing\Frank Schätzing - GEFAHR - 14 -  Keine Angst.mp3"
Const $Text_DE_hsp_3 = "Interpret\Interpret - Album - Track - Titel.mp3"
Const $Text_DE_Knopf_s = "Bearbeite die Dateien im Verzeichnis als Sampler"
Const $Text_DE_Knopf_M = "Bearbeite die Dateien im Verzeichnis als MUSIK"
Const $Text_DE_Knopf_H = "Bearbeite die Dateien im Verzeichnis als Hörbuch"
Const $Text_DE_Infozeile_m = " Das Programm geht gerade durch die Dateien. ", $Text_DE_Infozeile_S = "  Ein wenig Geduld bitte! ", $Text_DE_Infozeile_s1 = " ESC Taste drücken zum Abbrechen.", $Text_DE_Infozeile_s2 = "Alle Sampler werden zusätzlich im Ordner für Musik abgelegt!!"
Const $Text_DE_Infozeile_H = "Stopp erfolgt erst wenn die Datei zu Ende kopiert wurde!"
Global $Button_FAQtext = "Informationen zum Programm" & @CRLF & "Intention:" & @CRLF & "Meine MP3-Dateien automatisch neu benennen nach einem festem Schema ablegen und diese in eine besere Struktur packen. " & @CRLF
$Button_FAQtext = $Button_FAQtext & "Benutzung:" & @CRLF & "Einfach einen Zielordner auswählen in der die neue Struktur aufgebaut werden soll." & @CRLF & "Bitte einmalig festlegen um den besten Nutzen herauszuholen." & @CRLF
$Button_FAQtext = $Button_FAQtext & "Das Startverzeichnis kann natürlich immer gewechselt werden und beinhaltet ALLE Unterverzeichnisse!" & @CRLF
$Button_FAQtext = $Button_FAQtext & "Die Ordner speichert sich das Programm in der Registry"
$Button_FAQtext = $Button_FAQtext & "Dann den Zauber starten. Abbruch mit der ESC-Taste" & @CRLF & "Grüße aus dem Norden" & @CRLF & "Patrick Sambill"
$Button_FAQtext = $Button_FAQtext & @CRLF & "Quellcode sind etwa 550 Zeilen mit AutoIT geschrieben"
$Button_FAQtext = $Button_FAQtext & @CRLF & "weitere Fragen per E-Mail an patrick@sambill.de"

Global $Cleanup_infotext = "Es wird im Start-Verzeichnis kräftig aufgeräumt" & @CRLF & "Alle Bilder und sonstige störende Dateileichen werden gelöscht" & @CRLF & "*.ape" & @CRLF & "*.bmp" & @CRLF & "*.cdl" & @CRLF & "*.cue" & @CRLF & "*.flac" & @CRLF & "*.fpl" & @CRLF & "*.gif" & @CRLF & "*.htm" & @CRLF & "*.html" & @CRLF & "*.ico" & @CRLF & "*.ini" & @CRLF & "*.ion" & @CRLF & "*.jpeg" & @CRLF & "*.jpg" & @CRLF & "*.lnk" & @CRLF & "*.log" & @CRLF & "*.m3u" & @CRLF & "*.m4a" & @CRLF & "*.m4r" & @CRLF & "*.mpg" & @CRLF & "*.nfo" & @CRLF & "*.ogg" & @CRLF & "*.scf" & @CRLF & "*.scn" & @CRLF & "*.sfv" & @CRLF & "*.sfv" & @CRLF & "*.team" & @CRLF & "*.text" & @CRLF & "*.tif" & @CRLF & "*.tmp" & @CRLF & "*.txt" & @CRLF & "*.url" & @CRLF & "*.wav" & @CRLF & "*.xml" & @CRLF & "*.xspf" & @CRLF & "descript.ion" & @CRLF & "desktop.ini" & @CRLF & "thumbs.db" & @CRLF & "Also vorsichtig benutzen!!!" & @CRLF & "Alle dann LEERE Unterverzeichnisse werden entfernt."


_GDIPlus_Startup()
HotKeySet("{ESC}", "_Terminate")
$KoordinateX = RegRead("HKEY_CURRENT_USER\Software\MP3-Verschieber", "KoordinateX")
$KoordinateY = RegRead("HKEY_CURRENT_USER\Software\MP3-Verschieber", "KoordinateY")
Local $aPos = WinGetPos("Program Manager")
If ($KoordinateX > ($aPos[2] - 300)) Or ($KoordinateX < 1) Then
	$KoordinateX = 10
EndIf
If ($KoordinateY > ($aPos[3] - 300)) Or ($KoordinateY < 1) Then
	$KoordinateY = 10
EndIf
$ID3Gui = GUICreate("MP3-Umbenenner und Resortierer " & $Versionsnummer & " von Patrick Sambill (patrick@sambill.de)", 900, 620, $KoordinateX, $KoordinateY)
$STARTPFAD = RegRead("HKEY_CURRENT_USER\Software\MP3-Verschieber", "Startverzeichnis")
$STARTPFAD_ID = GUICtrlCreateButton("Start-Verzeichnis", 10, 10, 100, 20, $STARTPFAD)
RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "Startverzeichnis", "REG_SZ", $STARTPFAD)
$PFAD_1 = GUICtrlCreateLabel($STARTPFAD & "\*.mp3", 125, 15, 870, 20)
$ZielPFAD_MUSIK = RegRead("HKEY_CURRENT_USER\Software\MP3-Verschieber", "Zielverzeichnis_Musik")
$ZielPFAD_MUSIK_ID = GUICtrlCreateButton("Ziel-Verzeichnis", 10, 35, 100, 20, $ZielPFAD_MUSIK)
$PFAD_2 = GUICtrlCreateLabel($ZielPFAD_MUSIK, 125, 40, 870, 20)
$ZielPFAD_kuenstler = $ZielPFAD_MUSIK & "\Musik\Interpret\"
$ZielPFAD_Sampler = $ZielPFAD_MUSIK & "\Musik\Sampler\"
$ZielPFAD_Hoerspiele = $ZielPFAD_MUSIK & "\Hörbuch\"
$GUI_Datei_Zeile1 = GUICtrlCreateLabel("Datei:     " & $STARTPFAD & $Text_DE_Datei_1, 10, 100, 950, 20)
$GUI_Datei_Zeile2 = GUICtrlCreateLabel("Datei:     " & $STARTPFAD & $Datei_2, 10, 115, 700, 20)
$GUI_Datei_Zeile3 = GUICtrlCreateLabel("Datei:     " & $STARTPFAD & $Datei_3, 10, 130, 700, 20)
$GUI_Musik_Zeile1 = GUICtrlCreateLabel("Musik:   " & $ZielPFAD_kuenstler & $Text_DE_Musik_1, 10, 200, 950, 20)
$GUI_Musik_Zeile2 = GUICtrlCreateLabel("Musik:   " & $ZielPFAD_kuenstler & $Text_DE_Musik_2, 10, 215, 950, 20)
$GUI_Musik_Zeile3 = GUICtrlCreateLabel("Musik:   " & $ZielPFAD_kuenstler & $Text_DE_Musik_3, 10, 230, 950, 20)
$Button_StartMUSIK = GUICtrlCreateButton($Text_DE_Knopf_M, 10, 250, 300, 20)
$GUI_Sampler_Zeile1 = GUICtrlCreateLabel("Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_1, 10, 300, 950, 20)
$GUI_Sampler_Zeile2 = GUICtrlCreateLabel("Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_2, 10, 315, 950, 20)
$GUI_Sampler_Zeile3 = GUICtrlCreateLabel("Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_3, 10, 330, 950, 20)
$Button_StartSAMPLER = GUICtrlCreateButton($Text_DE_Knopf_s, 110, 350, 300, 20)
$Sample_info = GUICtrlCreateLabel($Text_DE_Infozeile_s2, 440, 350, 350)
$GUI_Hoerbuch_Zeile1 = GUICtrlCreateLabel("Hörbuch/Hörspiel:   " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_1, 10, 400, 950, 20)
$GUI_Hoerbuch_Zeile2 = GUICtrlCreateLabel("Hörbuch/Hörspiel:   " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_2, 10, 415, 950, 20)
$GUI_Hoerbuch_Zeile3 = GUICtrlCreateLabel("Hörbuch/Hörspiel:   " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_3, 10, 430, 950, 20)
$Button_startHoerbuch = GUICtrlCreateButton($Text_DE_Knopf_H, 210, 450, 300, 20)

$Button_BEENDEN = GUICtrlCreateButton("Beenden", 800, 10, 50, 20)
$Button_FAQ = GUICtrlCreateButton("FAQ", 800, 35, 50, 20)

$GUI_Info_Zeile1 = GUICtrlCreateLabel(" ", 30, 480, 850, 25)
$GUI_Info_Zeile2 = GUICtrlCreateLabel(" ", 30, 507, 850, 25)
$GUI_Info_Zeile3 = GUICtrlCreateLabel("Anzahl Dateien bearbeitet: 0", 30, 534, 330, 25)
$GUI_Info_Zeile4 = GUICtrlCreateLabel("", 30, 561, 850, 25)
$GUI_Info_Zeile5 = GUICtrlCreateLabel($NeuerDateiname_Musik, 30, 588, 850, 25)

$GUI_Debug_Zeile = GUICtrlCreateLabel("Debuginformationen", 20, 60, 700, 20)
Global $cleanup = GUICtrlCreateCheckbox("Lokal Aufräumen", 800, 60, 185, 25)

$CleanUp_Aktiv = RegRead("HKEY_CURRENT_USER\Software\MP3-Verschieber", "CleanUp_Aktiv")
If $CleanUp_Aktiv = "" Then
	$CleanUp_Aktiv = "nein"
EndIf
If $CleanUp_Aktiv = "nein" Then
	GUICtrlSetState($cleanup, $GUI_UNCHECKED)
EndIf
If $CleanUp_Aktiv = "ja" Then
	GUICtrlSetState($cleanup, $GUI_CHECKED)
EndIf
GUISetState(@SW_SHOW, $ID3Gui)
$FILECOUNTER = 0
$idMsg = 0
Sleep(20)

While 1
	$idMsg = GUIGetMsg()
	Select
		Case $idMsg = $cleanup
			If GUICtrlRead($cleanup) = $GUI_CHECKED And $CleanUp_Aktiv = "nein" Then
				$CleanUp_Aktiv = "ja"
				MsgBox(0, "Aufräumen aktiv", $Cleanup_infotext, 0, $ID3Gui)
				RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "CleanUp_Aktiv", "REG_SZ", $CleanUp_Aktiv)
			EndIf
			If GUICtrlRead($cleanup) = $GUI_UNCHECKED And $CleanUp_Aktiv = "ja" Then
				$CleanUp_Aktiv = "nein"
				MsgBox(0, "Aufräumen deaktiviert", "Es werden keine weiteren Datei aus dem Start-Verzeichnissen gelöscht. LEERE Unterverzeichnisse werden trotzdem entfernt", 0, $ID3Gui)
				RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "CleanUp_Aktiv", "REG_SZ", $CleanUp_Aktiv)
			EndIf
		Case $idMsg = $GUI_EVENT_CLOSE
			Exit

		Case $idMsg = $Button_BEENDEN
			Exit

		Case $idMsg = $Button_FAQ
			MsgBox($MB_SYSTEMMODAL, "FAQ", $Button_FAQtext)
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")

		Case $idMsg = $STARTPFAD_ID
			While 1
				$STARTPFAD = FileSelectFolder("Startverzeichnisauswahl", $STARTPFAD, "0", $STARTPFAD)
				If $STARTPFAD <> "" Then
					ExitLoop
				Else
					MsgBox($MB_SYSTEMMODAL, "Startpfad", "Der Startpfad ist leer oder der Desktop. Das geht nicht!")
				EndIf
			WEnd
			RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "Startverzeichnis", "REG_SZ", $STARTPFAD)
			GUICtrlSetData($PFAD_1, $STARTPFAD & "\*.mp3")
			GUICtrlSetData($GUI_Datei_Zeile1, "Datei:     " & $STARTPFAD & $Text_DE_Datei_1)
			GUICtrlSetData($GUI_Datei_Zeile2, "Datei:     " & $STARTPFAD & $Datei_2)
			GUICtrlSetData($GUI_Datei_Zeile3, "Datei:     " & $STARTPFAD & $Datei_3)
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")

		Case $idMsg = $ZielPFAD_MUSIK_ID
			GUICtrlSetData($GUI_Info_Zeile4, "")
			GUICtrlSetData($GUI_Info_Zeile5, "")
			GUICtrlSetData($GUI_Info_Zeile2, "")
			$ZielPFAD_MUSIK = FileSelectFolder("Zielverzeichnisauswahl", $ZielPFAD_MUSIK, "0", $ZielPFAD_MUSIK)
			If $ZielPFAD_MUSIK <> "" Then
				RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "Zielverzeichnis_Musik", "REG_SZ", $ZielPFAD_MUSIK)
			EndIf
			$ZielPFAD_kuenstler = $ZielPFAD_MUSIK & "\Musik\Interpret\"
			$ZielPFAD_Sampler = $ZielPFAD_MUSIK & "\Musik\Sampler\"
			$ZielPFAD_Hoerspiele = $ZielPFAD_MUSIK & "\Hörbuch\"
			GUICtrlSetData($PFAD_2, $ZielPFAD_MUSIK)
			GUICtrlSetData($GUI_Musik_Zeile1, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_1)
			GUICtrlSetData($GUI_Musik_Zeile2, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_2)
			GUICtrlSetData($GUI_Musik_Zeile3, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_3)
			GUICtrlSetData($GUI_Sampler_Zeile1, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_1)
			GUICtrlSetData($GUI_Sampler_Zeile2, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_2)
			GUICtrlSetData($GUI_Sampler_Zeile3, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_3)
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_1)
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_2)
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_3)
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")

		Case $idMsg = $Button_StartMUSIK
			GUICtrlSetData($GUI_Info_Zeile4, "")
			GUICtrlSetData($GUI_Info_Zeile5, "")
			GUICtrlSetData($GUI_Info_Zeile2, "")
			$Knopf = "Musik"
			GUICtrlSetData($GUI_Datei_Zeile1, "")
			GUICtrlSetData($GUI_Datei_Zeile2, "")
			GUICtrlSetData($GUI_Datei_Zeile3, "")
			GUICtrlSetData($GUI_Musik_Zeile1, "")
			GUICtrlSetData($GUI_Musik_Zeile2, "")
			GUICtrlSetData($GUI_Musik_Zeile3, "")
			GUICtrlSetData($GUI_Sampler_Zeile1, "")
			GUICtrlSetData($GUI_Sampler_Zeile2, "")
			GUICtrlSetData($GUI_Sampler_Zeile3, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "")
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Infozeile_m)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Infozeile_S)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Infozeile_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s1)
			Ausfuehren($STARTPFAD)
			gotosubdir($STARTPFAD)
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Knopf_M)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Knopf_s)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Knopf_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s2)
			GUICtrlSetData($GUI_Datei_Zeile1, "Datei:     " & $STARTPFAD & $Text_DE_Datei_1)
			GUICtrlSetData($GUI_Datei_Zeile2, "Datei:     " & $STARTPFAD & $Datei_2)
			GUICtrlSetData($GUI_Datei_Zeile3, "Datei:     " & $STARTPFAD & $Datei_3)
			GUICtrlSetData($GUI_Musik_Zeile1, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_1)
			GUICtrlSetData($GUI_Musik_Zeile2, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_2)
			GUICtrlSetData($GUI_Musik_Zeile3, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_3)
			GUICtrlSetData($GUI_Sampler_Zeile1, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_1)
			GUICtrlSetData($GUI_Sampler_Zeile2, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_2)
			GUICtrlSetData($GUI_Sampler_Zeile3, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_3)
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_1)
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_2)
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_3)
			GUICtrlSetData($GUI_Info_Zeile4, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile5, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile2, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile1, "Verzeichnis: --")
			$Knopf = "Musik fertig"
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")

		Case $idMsg = $Button_StartSAMPLER
			GUICtrlSetData($GUI_Info_Zeile4, "")
			GUICtrlSetData($GUI_Info_Zeile5, "")
			GUICtrlSetData($GUI_Info_Zeile2, "")
			$Knopf = "Sampler"
			GUICtrlSetData($GUI_Datei_Zeile1, "")
			GUICtrlSetData($GUI_Datei_Zeile2, "")
			GUICtrlSetData($GUI_Datei_Zeile3, "")
			GUICtrlSetData($GUI_Musik_Zeile1, "")
			GUICtrlSetData($GUI_Musik_Zeile2, "")
			GUICtrlSetData($GUI_Musik_Zeile3, "")
			GUICtrlSetData($GUI_Sampler_Zeile1, "")
			GUICtrlSetData($GUI_Sampler_Zeile2, "")
			GUICtrlSetData($GUI_Sampler_Zeile3, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "")
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Infozeile_m)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Infozeile_S)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Infozeile_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s1)
			Ausfuehren($STARTPFAD)
			gotosubdir($STARTPFAD)
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Knopf_M)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Knopf_s)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Knopf_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s2)
			GUICtrlSetData($GUI_Datei_Zeile1, "Datei:     " & $STARTPFAD & $Text_DE_Datei_1)
			GUICtrlSetData($GUI_Datei_Zeile2, "Datei:     " & $STARTPFAD & $Datei_2)
			GUICtrlSetData($GUI_Datei_Zeile3, "Datei:     " & $STARTPFAD & $Datei_3)
			GUICtrlSetData($GUI_Musik_Zeile1, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_1)
			GUICtrlSetData($GUI_Musik_Zeile2, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_2)
			GUICtrlSetData($GUI_Musik_Zeile3, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_3)
			GUICtrlSetData($GUI_Sampler_Zeile1, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_1)
			GUICtrlSetData($GUI_Sampler_Zeile2, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_2)
			GUICtrlSetData($GUI_Sampler_Zeile3, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_3)
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_1)
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_2)
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_3)
			GUICtrlSetData($GUI_Info_Zeile4, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile5, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile2, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile1, "Verzeichnis: --")
			$Knopf = "Sampler fertig"
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")

		Case $idMsg = $Button_startHoerbuch
			GUICtrlSetData($GUI_Info_Zeile4, "")
			GUICtrlSetData($GUI_Info_Zeile5, "")
			GUICtrlSetData($GUI_Info_Zeile2, "")
			$Knopf = "Hörbuch"
			GUICtrlSetData($GUI_Datei_Zeile1, "")
			GUICtrlSetData($GUI_Datei_Zeile2, "")
			GUICtrlSetData($GUI_Datei_Zeile3, "")
			GUICtrlSetData($GUI_Musik_Zeile1, "")
			GUICtrlSetData($GUI_Musik_Zeile2, "")
			GUICtrlSetData($GUI_Musik_Zeile3, "")
			GUICtrlSetData($GUI_Sampler_Zeile1, "")
			GUICtrlSetData($GUI_Sampler_Zeile2, "")
			GUICtrlSetData($GUI_Sampler_Zeile3, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "")
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "")
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Infozeile_m)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Infozeile_S)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Infozeile_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s1)
			Ausfuehren($STARTPFAD)
			gotosubdir($STARTPFAD)
			GUICtrlSetData($Button_StartMUSIK, $Text_DE_Knopf_M)
			GUICtrlSetData($Button_StartSAMPLER, $Text_DE_Knopf_s)
			GUICtrlSetData($Button_startHoerbuch, $Text_DE_Knopf_H)
			GUICtrlSetData($Sample_info, $Text_DE_Infozeile_s2)
			GUICtrlSetData($GUI_Datei_Zeile1, "Datei:     " & $STARTPFAD & $Text_DE_Datei_1)
			GUICtrlSetData($GUI_Datei_Zeile2, "Datei:     " & $STARTPFAD & $Datei_2)
			GUICtrlSetData($GUI_Datei_Zeile3, "Datei:     " & $STARTPFAD & $Datei_3)
			GUICtrlSetData($GUI_Musik_Zeile1, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_1)
			GUICtrlSetData($GUI_Musik_Zeile2, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_2)
			GUICtrlSetData($GUI_Musik_Zeile3, "Musik:     " & $ZielPFAD_kuenstler & $Text_DE_Musik_3)
			GUICtrlSetData($GUI_Sampler_Zeile1, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_1)
			GUICtrlSetData($GUI_Sampler_Zeile2, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_2)
			GUICtrlSetData($GUI_Sampler_Zeile3, "Sampler:   " & $ZielPFAD_Sampler & $Text_DE_Sampler_3)
			GUICtrlSetData($GUI_Hoerbuch_Zeile1, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_1)
			GUICtrlSetData($GUI_Hoerbuch_Zeile2, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_2)
			GUICtrlSetData($GUI_Hoerbuch_Zeile3, "Hörspiele: " & $ZielPFAD_Hoerspiele & $Text_DE_hsp_3)
			GUICtrlSetData($GUI_Info_Zeile4, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile5, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile2, "FERTIG !!!")
			GUICtrlSetData($GUI_Info_Zeile1, "Verzeichnis: --")
			$Knopf = "Hörbuch fertig"
			GUICtrlSetData($GUI_Debug_Zeile, "Hauptmenue")
	EndSelect
	Sleep(20)
	Local $aPos = WinGetPos("MP3-Umbenenner und Resortierer " & $Versionsnummer & " von Patrick Sambill (patrick@sambill.de)")
	If ($aPos[1] > 0 And $aPos[1] <> $KoordinateY) Or ($aPos[0] > 0 And $aPos[0] <> $KoordinateX) Then
		RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "KoordinateX", "REG_SZ", $aPos[0])
		RegWrite("HKEY_CURRENT_USER\Software\MP3-Verschieber", "KoordinateY", "REG_SZ", $aPos[1])
	EndIf
	Sleep(20)
WEnd
Exit


Func Ausfuehren($INPUT)
	If StringRight($INPUT, 1) <> "\" Then
		$INPUT = $INPUT & "\"
	EndIf
	Local $hSearch = FileFindFirstFile($INPUT & "*.mp3")
	If $hSearch = -1 Then
		Return False
	EndIf
	Local $sFileName = "", $iResult = 0
	While 1
		Sleep(20)
		Local $i
		For $i = 1 To 20 Step 1

			$idMsg = GUIGetMsg()
			Select
				Case $idMsg = $GUI_EVENT_CLOSE
					Exit

				Case $idMsg = $Button_BEENDEN
					Exit

				Case $idMsg = $Button_FAQ
					MsgBox($MB_SYSTEMMODAL, "FAQ", $Button_FAQtext)
			EndSelect
		Next
		$sFileName = FileFindNextFile($hSearch)

		GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName)
		GUICtrlSetData($GUI_Info_Zeile1, "Verzeichnis: " & $INPUT)
		If @error Then
			ExitLoop
		EndIf
		If $sFileName = "" Then
			ExitLoop
		EndIf
		GUICtrlSetData($GUI_Debug_Zeile, "Lese Tags aus Datei")
		_ID3ReadTag($INPUT & $sFileName, 3) ;read only ID3v1 and ID3v2 tags
		If StringLower(StringRight($sFileName, 3)) = "mp3" Then

			$Titel = _ID3GetTagField("TIT2") ;Title from ID3v2
			GUICtrlSetData($GUI_Debug_Zeile, $Titel)
			GUICtrlSetData($GUI_Debug_Zeile, "Tag Titel gelesen")
			$Album = _ID3GetTagField("TALB")
			GUICtrlSetData($GUI_Debug_Zeile, $Album)
			GUICtrlSetData($GUI_Debug_Zeile, "Tag Album gelesen")
			$Artist = _ID3GetTagField("TPE1")
			GUICtrlSetData($GUI_Debug_Zeile, "Tag Artist gelesen")
			If StringLeft(StringLower($Artist), 5) = "vario" Then
				$Artist = ""
			EndIf
			If StringLower($Artist) = "va" Then
				$Artist = ""
			EndIf
		EndIf
		If StringLeft(StringLower($Artist), 6) = "unbeka" Then
			$Artist = ""
		EndIf
		If StringLeft(StringLower($Artist), 6) = "unknow" Then
			$Artist = ""
		EndIf
		$Track = _ID3GetTagField("TRCK")
		GUICtrlSetData($GUI_Debug_Zeile, "Tag Track gelesen")
		GUICtrlSetData($GUI_Debug_Zeile, "Texte bereinigen")

		$Track2 = BinaryToString(StringToBinary($Track, 1), 4)
		$Titel2 = BinaryToString(StringToBinary($Titel, 1), 4)
		$Album2 = BinaryToString(StringToBinary($Album, 1), 4)
		$Artist2 = BinaryToString(StringToBinary($Artist, 1), 4)

		cleanup_texte()

		Local $NeuerDateiname_Musik = $ZielPFAD_kuenstler & StringUpper(StringMid($Artist, 1, 1)) & "\" & $Artist & "\" & $Artist & " - " & $Album & " - " & $Titel & ".mp3"
		Local $NeuerDateiname_Sampl_Musik = $ZielPFAD_kuenstler & StringUpper(StringMid($Artist, 1, 1)) & "\" & $Artist & "\" & $Artist & " -  - " & $Titel & ".mp3"
		Local $NeuerDateiname_Hoerbuch = $ZielPFAD_Hoerspiele & $Artist & "\" & $Artist & " - " & $Album & " - " & $Track & " - " & $Titel & ".mp3"
		Local $NeuerDateiname_Sampler = $ZielPFAD_Sampler & $Album & "\" & $Album & " - " & $Track & " - " & $Artist & " - " & $Titel & ".mp3"

		Sleep(20)
		If $Artist <> "" And $Titel <> "" Then
			GUICtrlSetData($GUI_Debug_Zeile, "Artist und Titel okay, tu es!")
			If $Knopf = "Musik" Then
				$FILECOUNTER = $FILECOUNTER + 1
				GUICtrlSetData($GUI_Info_Zeile4, $INPUT & $sFileName)
				GUICtrlSetData($GUI_Info_Zeile5, $NeuerDateiname_Musik)
				Sleep(20)
				If FileExists($NeuerDateiname_Musik) Then
					Local $Filesize_lokal = FileGetSize($INPUT & $sFileName)
					Local $Filesize_Ziel = FileGetSize($NeuerDateiname_Musik)
					If $Filesize_Ziel >= $Filesize_lokal Then
						If $INPUT & $sFileName <> $NeuerDateiname_Musik Then
							FileDelete($INPUT & $sFileName)
							GUICtrlSetData($GUI_Debug_Zeile, "Bessere oder identische Datei existiert im Ziel. Lokale Datei gelöscht")
							GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde gelöscht")
						Else
							GUICtrlSetData($GUI_Debug_Zeile, "DIGGER! Ich hau Dich! Quelle und Ziel identisch. Das löscht alle Dateien!")
						EndIf
						Sleep(20)
					EndIf
				EndIf
				If FileExists($INPUT & $sFileName) Then
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Musik start")
					Sleep(20)
					Local $Filesize = FileGetSize($INPUT & $sFileName) / 1024 / 1024
					Local $Timer = TimerInit()
					FileMove($INPUT & $sFileName, $NeuerDateiname_Musik, $FC_CREATEPATH + $FC_OVERWRITE)
					Local $Differenz = TimerDiff($Timer) / 1000
					Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
					$Filesize = Round($Filesize, 3)
					$Differenz = Round($Differenz, 3)
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Musik durchgeführt")
					GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde verschoben")
					GUICtrlSetData($GUI_Datei_Zeile1, "Verschiebe Geschwindigkeit: " & $Geschwindigkeit & " Megabyte/sec. " & $Filesize & " MegaBytes in " & $Differenz & " Sekunden")
					Sleep(20)
				EndIf
			EndIf ;musik
			If $Knopf = "Sampler" Then
				$FILECOUNTER = $FILECOUNTER + 1
				GUICtrlSetData($GUI_Info_Zeile4, $INPUT & $sFileName)
				GUICtrlSetData($GUI_Info_Zeile5, $NeuerDateiname_Sampl_Musik)
				Sleep(20)
				If FileExists($NeuerDateiname_Musik) Then
					FileDelete($NeuerDateiname_Musik)
				EndIf
				If FileExists($NeuerDateiname_Sampl_Musik) Then
					Sleep(20)
					Local $Filesize_lokal = FileGetSize($INPUT & $sFileName)
					Local $Filesize_Ziel = FileGetSize($NeuerDateiname_Sampl_Musik)
					If $Filesize_Ziel >= $Filesize_lokal Then
						GUICtrlSetData($GUI_Debug_Zeile, "Bessere oder identische Datei existiert im Ziel. Musik übersprungen")
						GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " Musik übersprungen")
					Else
						GUICtrlSetData($GUI_Debug_Zeile, "filecopy Musik start. Neue Datei ist größer.")
						Local $Filesize = (FileGetSize($INPUT & $sFileName) / 1024 / 1024)
						Local $Timer = TimerInit()
						FileCopy($INPUT & $sFileName, $NeuerDateiname_Sampl_Musik, $FC_CREATEPATH + $FC_OVERWRITE)
						Local $Differenz = TimerDiff($Timer) / 1000
						_ID3ReadTag($NeuerDateiname_Sampl_Musik, 0)
						_ID3SetTagField("TALB", "")
						_ID3SetTagField("COMM", "Sampler: " & $Album)
						_ID3SetTagField("Comment", "Sampler: " & $Album)
						_ID3WriteTag($NeuerDateiname_Sampl_Musik, -1)
						Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
						$Filesize = Round($Filesize, 3)
						$Differenz = Round($Differenz, 3)
						GUICtrlSetData($GUI_Debug_Zeile, "filemove Musik durchgeführt")
						GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde verschoben")
						GUICtrlSetData($GUI_Datei_Zeile1, "Kopier Geschwindigkeit: " & $Geschwindigkeit & " Megabyte/sec. " & $Filesize & " MegaBytes in " & $Differenz & " Sekunden")
						Sleep(20)
					EndIf ;filesize
				Else ; keine Datei
					Sleep(20)
					GUICtrlSetData($GUI_Debug_Zeile, "filecopy Musik start")
					Local $Filesize = (FileGetSize($INPUT & $sFileName) / 1024 / 1024)
					Local $Timer = TimerInit()
					FileCopy($INPUT & $sFileName, $NeuerDateiname_Sampl_Musik, $FC_CREATEPATH + $FC_OVERWRITE)
					Local $Differenz = TimerDiff($Timer) / 1000
					Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
					_ID3ReadTag($NeuerDateiname_Sampl_Musik, 0)
					_ID3SetTagField("TALB", "")
					_ID3SetTagField("COMM", "Sampler: " & $Album)
					_ID3SetTagField("Comment", "Sampler: " & $Album)
					_ID3WriteTag($NeuerDateiname_Sampl_Musik, -1)
					Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
					$Filesize = Round($Filesize, 3)
					$Differenz = Round($Differenz, 3)
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Musik durchgeführt")
					GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde verschoben")
					GUICtrlSetData($GUI_Datei_Zeile1, "Kopier Geschwindigkeit: " & $Geschwindigkeit & " Megabyte/sec. " & $Filesize & " MegaBytes in " & $Differenz & " Sekunden")
					Sleep(20)
				EndIf ;fileexist
				GUICtrlSetData($GUI_Info_Zeile5, $NeuerDateiname_Sampler)
				If FileExists($NeuerDateiname_Sampler) Then
					Sleep(20)
					Local $Filesize_lokal = FileGetSize($INPUT & $sFileName)
					Local $Filesize_Ziel = FileGetSize($NeuerDateiname_Sampler)
					If $Filesize_Ziel >= $Filesize_lokal Then
						If $INPUT & $sFileName <> $NeuerDateiname_Sampler Then
							FileDelete($INPUT & $sFileName)
							GUICtrlSetData($GUI_Debug_Zeile, "file exist already, lokal gelöscht")
							GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde gelöscht")
						Else
							GUICtrlSetData($GUI_Debug_Zeile, "DIGGER! Ich hau Dich! Quelle und Ziel identisch. Das löscht alle Dateien!")
						EndIf
					EndIf
				EndIf
				If FileExists($INPUT & $sFileName) Then
					Sleep(20)
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Sampler start")
					Local $Filesize = (FileGetSize($INPUT & $sFileName) / 1024 / 1024)
					Local $Timer = TimerInit()
					FileMove($INPUT & $sFileName, $NeuerDateiname_Sampler, $FC_CREATEPATH + $FC_OVERWRITE)
					Local $Differenz = TimerDiff($Timer) / 1000
					Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
					$Filesize = Round($Filesize, 3)
					$Differenz = Round($Differenz, 3)
					GUICtrlSetData($GUI_Datei_Zeile1, "Verschiebe Geschwindigkeit: " & $Geschwindigkeit & " Megabyte/sec. " & $Filesize & " MegaBytes in " & $Differenz & " Sekunden")
					GUICtrlSetData($GUI_Debug_Zeile, "filemove done")
					GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde verschoben")
					Sleep(20)
				EndIf
			EndIf ;sampler
			If $Knopf = "Hörbuch" Then
				Sleep(20)
				$FILECOUNTER = $FILECOUNTER + 1
				GUICtrlSetData($GUI_Info_Zeile4, $INPUT & $sFileName)
				GUICtrlSetData($GUI_Info_Zeile5, $NeuerDateiname_Hoerbuch)
				Sleep(20)
				If FileExists($NeuerDateiname_Hoerbuch) Then
					Sleep(20)
					Local $Filesize_lokal = FileGetSize($INPUT & $sFileName)
					Local $Filesize_Ziel = FileGetSize($NeuerDateiname_Hoerbuch)
					If $Filesize_Ziel >= $Filesize_lokal Then
						If $INPUT & $sFileName <> $NeuerDateiname_Hoerbuch Then
							FileDelete($INPUT & $sFileName)
							GUICtrlSetData($GUI_Debug_Zeile, "Bessere oder identische Datei existiert im Ziel. Lokale Datei gelöscht")
							GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde gelöscht")
						Else
							GUICtrlSetData($GUI_Debug_Zeile, "DIGGER! Ich hau Dich! Quelle und Ziel identisch. Das löscht alle Dateien!")
						EndIf
					EndIf
				EndIf
				If FileExists($INPUT & $sFileName) Then
					Sleep(20)
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Hörbuch start")
					Local $Filesize = FileGetSize($INPUT & $sFileName) / 1024 / 1024
					Local $Timer = TimerInit()
					FileMove($INPUT & $sFileName, $NeuerDateiname_Hoerbuch, $FC_CREATEPATH + $FC_OVERWRITE)
					Local $Differenz = TimerDiff($Timer) / 1000
					Local $Geschwindigkeit = Round((($Filesize) / $Differenz), 2)
					$Filesize = Round($Filesize, 3)
					$Differenz = Round($Differenz, 3)
					GUICtrlSetData($GUI_Datei_Zeile1, "Verschiebe Geschwindigkeit: " & $Geschwindigkeit & " Megabyte/sec. " & $Filesize & " MegaBytes in " & $Differenz & " Sekunden")
					GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " wurde verschoben")
					GUICtrlSetData($GUI_Debug_Zeile, "filemove Hörbuch durchgeführt")
					Sleep(20)
				EndIf
				Sleep(20)
			EndIf
			GUICtrlSetData($GUI_Info_Zeile3, "Anzahl Dateien bearbeitet: " & $FILECOUNTER)
		Else
			GUICtrlSetData($GUI_Debug_Zeile, "Artist und/oder Titel NICHT okay, Datei übersprungen")
			GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFileName & " Artist und/oder Titel NICHT okay, Datei übersprungen")
			Sleep(20)
		EndIf
	WEnd
	GUICtrlSetData($GUI_Debug_Zeile, "Nächste Datei suchen")
	FileClose($hSearch)
EndFunc   ;==>Ausfuehren

Func gotosubdir($INPUT)
	GUICtrlSetData($GUI_Debug_Zeile, "Nächstes Verzeichnis suchen")
	Sleep(20)
	If StringRight($INPUT, 1) <> "\" Then
		$INPUT = $INPUT & "\"
	EndIf
	Local $hSearch1 = FileFindFirstFile($INPUT & "*.*")
	If $hSearch1 = -1 Then
		DirRemove($INPUT, 0)
		Return False
		Exit
	EndIf
	While 1
		$idMsg = GUIGetMsg()
		Select
			Case $idMsg = $GUI_EVENT_CLOSE
				Exit

			Case $idMsg = $Button_BEENDEN
				Exit
		EndSelect
		Local $sFN = FileFindNextFile($hSearch1)
		GUICtrlSetData($GUI_Info_Zeile2, "aktuelle Datei: " & $sFN)
		Sleep(20)
		If $sFN = "" Then
			DirRemove($INPUT & $sFN, 0)
			DirRemove($INPUT, 0)
			ExitLoop
		EndIf
		If @error Then
			ExitLoop
		EndIf
		If $CleanUp_Aktiv = "ja" Then
			If StringLower($sFN) = "descript.ion" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower($sFN) = "desktop.ini" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower($sFN) = "thumbs.db" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".gif" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".url" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".ico" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".ion" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".lnk" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".bmp" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".jpg" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".nfo" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".m3u" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".sfv" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".jpeg" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".htm" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".html" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".cue" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".xml" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".fpl" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".m4a" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".m4r" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".log" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".txt" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".cdl" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".ape" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".scf" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".tmp" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".ini" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".scn" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".mpg" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".ogg" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".wav" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 4)) = ".tif" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".team" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".flac" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".text" Then
				FileDelete($INPUT & $sFN)
			EndIf
			If StringLower(StringRight($sFN, 5)) = ".xspf" Then
				FileDelete($INPUT & $sFN)
			EndIf
		EndIf
		Local $sAttribute = FileGetAttrib($INPUT & $sFN)
		If StringInStr($sAttribute, "D") Then
			GUICtrlSetData($GUI_Debug_Zeile, "Neues Verzeichnis gefunden")
			Ausfuehren($INPUT & $sFN)
			GUICtrlSetData($GUI_Info_Zeile1, "Verzeichnis: [" & $sAttribute & "] " & $INPUT & $sFN)
			Sleep(20)
			GUICtrlSetData($GUI_Debug_Zeile, "Ab ins Untervereichnis: [" & $sAttribute & "] " & $INPUT & $sFN)
			Sleep(20)
			gotosubdir($INPUT & $sFN)
			Sleep(20)
			DirRemove($INPUT & $sFN, 0)
			DirRemove($INPUT, 0)
		EndIf


	WEnd
	DirRemove($INPUT & $sFN, 0)
	DirRemove($INPUT, 0)
	FileClose($hSearch1)
	Sleep(20)
EndFunc   ;==>gotosubdir

Func _Terminate()
	Exit
EndFunc   ;==>_Terminate


Func cleanup_texte()
	Sleep(20)
	$Album = StringReplace($Album, ":", ".")
	$Track = StringReplace($Track, "/", "-")
	;### Umlaute ##########################################################################
	If StringLen($Artist) > StringLen($Artist2) Or StringLen($Titel) > StringLen($Titel2) Or StringLen($Album) > StringLen($Album2) Or StringLen($Track) > StringLen($Track2) Then
		$Track = $Track2
		$Titel = $Titel2
		$Album = $Album2
		$Artist = $Artist2
	EndIf
	;### Titel ##########################################################################
	$Titel = StringStripCR($Titel)
	$Titel = StringStripWS($Titel, 3)
	$Titel = StringReplace($Titel, "/", "-")
	$Titel = StringReplace($Titel, "*", ".")
	$Titel = StringReplace($Titel, "<", "_")
	$Titel = StringReplace($Titel, ">", "_")
	$Titel = StringReplace($Titel, ":", ".")
	$Titel = StringReplace($Titel, "=", " ")
	$Titel = StringReplace($Titel, "|", ".")
	$Titel = StringReplace($Titel, "[", "")
	$Titel = StringReplace($Titel, "]", "")
	$Titel = StringReplace($Titel, "?", ".")
	$Titel = StringReplace($Titel, '"', "'")
	If $Knopf = "Hörbuch" Then
		$Titel = StringReplace($Titel, "&", " und ")
	Else
		$Titel = StringReplace($Titel, "&", " and ")
	EndIf
	$Titel = StringReplace($Titel, "_", " ")
	$Titel = StringReplace($Titel, " ft ", " feat. ")
	$Titel = StringReplace($Titel, " ft. ", " feat. ")
	$Titel = StringReplace($Titel, " feat ", " feat. ")
	$Titel = StringReplace($Titel, "  ", " ")
	$Titel = StringReplace($Titel, "  ", " ")
	$Titel = StringReplace($Titel, " -", "-")
	$Titel = StringReplace($Titel, "- ", "-")
	$Titel = _StringProper($Titel)
	Local $pos1 = StringInStr($Titel, "http", 0)
	Local $pos2 = StringInStr($Titel, "www", 0)
	If $pos1 > 0 Or $pos2 > 0 Then
		$Titel = ""
	EndIf
	If StringLeft(StringLower($Titel), 6) = "unbeka" Then
		$Titel = ""
	EndIf
	If StringLeft(StringLower($Titel), 6) = "unknow" Then
		$Titel = ""
	EndIf
	;### ALBUM ##########################################################################
	$Album = StringStripCR($Album)
	$Album = StringStripWS($Album, 3)
	$Album = StringReplace($Album, "/", "-")
	$Album = StringReplace($Album, "*", ".")
	$Album = StringReplace($Album, "<", " ")
	$Album = StringReplace($Album, ">", " ")
	$Album = StringReplace($Album, ":", ".")
	$Album = StringReplace($Album, "=", " ")
	$Album = StringReplace($Album, "|", ".")
	$Album = StringReplace($Album, "[", "")
	$Album = StringReplace($Album, "]", "")
	$Album = StringReplace($Album, "?", ".")
	$Album = StringReplace($Album, '"', "'")
	$Album = StringReplace($Album, " \", "\")
	If $Knopf = "Hörbuch" Then
		$Album = StringReplace($Album, "&", " und ")
	Else
		$Album = StringReplace($Album, "&", " and ")
	EndIf
	$Album = StringReplace($Album, "_", " ")
	$Album = StringReplace($Album, " ft ", " feat. ")
	$Album = StringReplace($Album, " ft. ", " feat. ")
	$Album = StringReplace($Album, " feat ", " feat. ")
	$Album = StringReplace($Album, "  ", " ")
	$Album = StringReplace($Album, "  ", " ")
	$Album = StringReplace($Album, " -", "-")
	$Album = StringReplace($Album, "- ", "-")
	$Album = _StringProper($Album)
	Local $pos1 = StringInStr($Album, "http", 0)
	Local $pos2 = StringInStr($Album, "www", 0)
	If $pos1 > 0 Or $pos2 > 0 Then
		$Album = ""
	EndIf
	;### Artist ##########################################################################
	$Artist = StringStripCR($Artist)
	$Artist = StringStripWS($Artist, 3)
	$Artist = StringReplace($Artist, "/", "-")
	$Artist = StringReplace($Artist, "*", ".")
	$Artist = StringReplace($Artist, "<", "_")
	$Artist = StringReplace($Artist, ">", "_")
	$Artist = StringReplace($Artist, ":", ".")
	$Artist = StringReplace($Artist, "=", " ")
	$Artist = StringReplace($Artist, "|", ".")
	$Artist = StringReplace($Artist, "[", "")
	$Artist = StringReplace($Artist, "]", "")
	$Artist = StringReplace($Artist, "?", ".")
	$Artist = StringReplace($Artist, '"', "'")
	$Artist = StringReplace($Artist, " \", "\")
	If (StringLower($Artist) = "ac-dc") Or (StringLower($Artist) = "acdc") Then
		$Artist = "ACDC"
	EndIf
	If $Knopf = "Hörbuch" Then
		$Artist = StringReplace($Artist, "&", " und ")
	Else
		$Artist = StringReplace($Artist, "&", " and ")
	EndIf
	$Artist = StringReplace($Artist, "_", " ")
	$Artist = StringReplace($Artist, " ft ", " feat. ")
	$Artist = StringReplace($Artist, " vs ", " vs. ")
	$Artist = StringReplace($Artist, " ft ", " feat. ")
	$Artist = StringReplace($Artist, " ft. ", " feat. ")
	$Artist = StringReplace($Artist, " feat ", " feat. ")
	$Artist = StringReplace($Artist, " Ft ", " feat. ")
	$Artist = StringReplace($Artist, " Ft. ", " feat. ")
	$Artist = StringReplace($Artist, " Feat ", " feat. ")
	$Artist = StringReplace($Artist, " FT ", " feat. ")
	$Artist = StringReplace($Artist, " FT. ", " feat. ")
	$Artist = StringReplace($Artist, " FEAT ", " feat. ")
	$Artist = StringReplace($Artist, " FEAT. ", " feat. ")
	If $Knopf = "Hörbuch" Then
		$Artist = StringReplace($Artist, "&", " und ")
	Else
		$Artist = StringReplace($Artist, "&", " and ")
	EndIf
	$Artist = StringReplace($Artist, "  ", " ")
	$Artist = StringReplace($Artist, "  ", " ")
	$Artist = StringReplace($Artist, " -", "-")
	$Artist = StringReplace($Artist, "- ", "-")
	$Artist = _StringProper($Artist)
	Local $pos1 = StringInStr($Artist, "http", 0)
	Local $pos2 = StringInStr($Artist, "www", 0)
	If $pos1 > 0 Or $pos2 > 0 Then
		$Artist = ""
	EndIf
	;### Track ##########################################################################
	$Track = StringStripCR($Track)
	$Track = StringStripWS($Track, 3)
	$Track = StringReplace($Track, "/", "-")
	$Track = StringReplace($Track, "*", ".")
	$Track = StringReplace($Track, "<", " ")
	$Track = StringReplace($Track, ">", " ")
	$Track = StringReplace($Track, ":", ".")
	$Track = StringReplace($Track, "=", " ")
	$Track = StringReplace($Track, "|", ".")
	$Track = StringReplace($Track, "[", "")
	$Track = StringReplace($Track, "]", "")
	$Track = StringReplace($Track, " \", "\")
	$Track = StringReplace($Track, "?", ".")
	$Track = StringReplace($Track, "  ", " ")
	$Track = StringReplace($Track, " -", "-")
	$Track = StringReplace($Track, "- ", "-")
	$Track = _StringProper($Track)
	Sleep(20)
EndFunc   ;==>cleanup_texte