HotKeySet("{F1}","changedossier")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiTreeView.au3>




Dim $array[100][2],$dim

$path = @scriptdir ; choisir ici le repertoire

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("By Tim v2.1", 614, 436, 241, 149)
$TreeView1 = _GUICtrlTreeView_Create($Form1,416, 48, 193, 409)
_GUICtrlTreeView_BeginUpdate($TreeView1)
$generalitem = _GUICtrlTreeView_Add($TreeView1,0, "Scripts VBS")
$general2item = _GUICtrlTreeView_Add($TreeView1,0, "Scripts BAT")
$general3item = _GUICtrlTreeView_Add($TreeView1,0, "Scripts AUTOIT")

_Get_scripts()


_GUICtrlTreeView_EndUpdate($TreeView1)
$Edit1 = GUICtrlCreateEdit("", 24, 48, 377, 409)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Voir le script séléctionné", 432, 8, 161, 33, 0)
$Button2 = GUICtrlCreateButton("Executer le script visionné", 48, 8, 321, 33, 0)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			For $s = 0 to $dim

			If $array[$s][0] = _GUICtrlTreeView_GetSelection($TreeView1) Then
				GUICtrlSetData($Edit1, FileRead($array[$s][1]))
			EndIf
			Next
		Case $Button2
			For $s = 0 to $dim
			If $array[$s][0] = _GUICtrlTreeView_GetSelection($TreeView1) Then
				ShellExecute($array[$s][1])
			EndIf
			Next	
	EndSwitch
	
	
WEnd




Func _Get_scripts()
			; Shows the filenames of all files in the current directory.
		FileChangeDir($path)
		$search = FileFindFirstFile("*.vbs")  
		$search2 = FileFindFirstFile("*.bat")
		$search3 = FileFindFirstFile("*.au3")
		; Check if the search was successful
		If $search = -1 and $search2 = -1 and $search3 = -1 Then
			MsgBox(0, "Error", "Pas de fichiers .vbs  .bat et .au3 trouvés. ")
			;Exit
		EndIf
		$s = 0
		While $search <> -1
			$file = FileFindNextFile($search) 
			If @error Then ExitLoop
			;$array[$s][0] = GUICtrlCreateTreeViewItem($file, $generalitem)
			$array[$s][0] = _GUICtrlTreeView_GetItemHandle($TreeView1, _GUICtrlTreeView_AddChild($TreeView1, $generalitem, $file))


			$array[$s][1] = $file
			$s = $s +1
		WEnd
		While $search2 <> -1
			$file = FileFindNextFile($search2) 
			If @error Then ExitLoop
			$array[$s][0] =_GUICtrlTreeView_GetItemHandle($TreeView1, _GUICtrlTreeView_AddChild($TreeView1, $general2item, $file))
			$array[$s][1] = $file
			$s = $s +1
		WEnd
		While $search3 <> -1
			$file = FileFindNextFile($search3) 
			If @error Then ExitLoop
			$array[$s][0] = _GUICtrlTreeView_GetItemHandle($TreeView1, _GUICtrlTreeView_AddChild($TreeView1, $general3item, $file))
			$array[$s][1] = $file
			$s = $s +1
		WEnd
		; Close the search handle
		FileClose($search)
		FileClose($search2)
		FileClose($search3)
		$dim = UBound($array) - 1
        _GUICtrlTreeView_Expand($TreeView1)
       
    
Endfunc

Func changedossier()
	$path = FileSelectFolder("Veuillez choisir l'emplacement de vos scripts","",7,@ScriptDir,$Form1)
	_GUICtrlTreeView_BeginUpdate($TreeView1)

	_GUICtrlTreeView_DeleteChildren($TreeView1,$generalitem)
	_GUICtrlTreeView_DeleteChildren($TreeView1,$general2item)
	_GUICtrlTreeView_DeleteChildren($TreeView1,$general3item)
	_GUICtrlTreeView_EndUpdate($TreeView1)
	_Get_scripts()

	
EndFunc