#include <Array.au3>
#include <GuiListView.au3>
#include <Funcs.au3>
Local $aDouble[2]
$sSavePath = @ScriptDir & '\Doppelte.txt'

$GUI = GUICreate("DoubleKill", 400, 350)
GUICtrlCreateLabel("File-Format to Search:", 10, 10)
$SearchPattern = GUICtrlCreateCombo("", 10, 30, 150, 20)
GUICtrlSetData($SearchPattern, "Text-Files|Log-Files|Windows-Media-Files|JPEG|MP3")
$SucheGo = GUICtrlCreateButton("Search", 350, 10)
$hListView = GUICtrlCreateListView("Pfad", 10, 60, 380, 285)
$cListView = GUICtrlGetHandle($hListView)
GUICtrlCreateLabel("Search Path:", 200, 10)
$Path = GUICtrlCreateInput("C:", 200, 30, 100, 20)
$contextmenu = GUICtrlCreateContextMenu($hListView)
$iDel = GUICtrlCreateMenuItem("Diesen Eintrag löschen", $contextmenu)
GUISetState(@SW_SHOW, $GUI)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $SucheGo
			$sSearchPattern = GUICtrlRead($SearchPattern)
			$sSearchPath = GUICtrlRead($Path)
			_SearchDoubles($sSearchPath, $sSearchPattern)
			_FileReadToArray2D(@ScriptDir & '\Doppelte.txt', $aDouble, -1)
			_ArrayDeleteEmpty($aDouble)
			_ArrayDelete($aDouble, 0)
			_ArrayDisplay($aDouble)
			_AddToListView($hListView, $aDouble)
;~ 			$unique = _ArrayUnique($aDouble)
;~ 			_ArrayDelete($unique, 0)
;~ 			_ArrayDisplay($unique)
	EndSwitch
WEnd

Func _AddToListView(ByRef $hWnd, ByRef $ARRAY)
	ToolTip('Bitte warten...', Default, Default, 'Liste wird erstellt!', 1, 3)
	If IsArray($ARRAY) Then
		_GUICtrlListView_AddArray($hWnd, $ARRAY)
		ToolTip("")
	EndIf
EndFunc   ;==>_AddToListView

#cs
	-Die suche funktioniert nicht mehr- * ERLEDIGT!!!!!!!!******************
	-Suchkriterium-Auswahl funktioniert nicht richtig(immer *.txt)-
	Ich muss noch dafür sorgen das die Einträge im Array vom Pfad und namen getrennt werden um die Doppelten Namen
	Da die Pfade nicht immer gleich sind aber der Dateiname.
#ce