#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=CNP.ico
#AutoIt3Wrapper_Outfile=..\CNP_32.Exe
#AutoIt3Wrapper_Outfile_x64=..\CNP.Exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Comment=Tyleo Project Creator
#AutoIt3Wrapper_Res_Description=Tyleo Project Creator
#AutoIt3Wrapper_Res_Fileversion=1.0.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=CNP
#AutoIt3Wrapper_Res_ProductVersion=1.0.0.0
#AutoIt3Wrapper_Res_CompanyName=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalCopyright=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalTradeMarks=Tyleo Softwares
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.14.5
 Auteur:         Tyleo

 Fonction du Script :
	Modèle de Script AutoIt.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-dessous.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $GUI = GUICreate("Tyleo Project Init", 375, 40, 432, 503)
Global $ProjName = GUICtrlCreateInput("", 8, 8, 281, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
Global $InitProject = GUICtrlCreateButton("CREATE", 296, 8, 73, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

if FileExists(@ScriptDir & "\_devtools") Then
   ConsoleWrite("OK")
Else
   DirCreate(@ScriptDir & "\_devtools")
EndIf

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $InitProject
	$dName = GUICtrlRead($ProjName)
   If $dName = "" Then
	MsgBox(0+16,"Error","No Name entered. Nice try !")
   Elseif FileExists(@ScriptDir & "\" & $dName) Then
	MsgBox(0+16,"Error","This project already exist !")
   Else
	DirCreate(@ScriptDir & "\" & $dName)
   DirCopy(@ScriptDir & "\_devtools",@ScriptDir & "\" & $dName,1)
   FileMove(@ScriptDir & "\" & $dName & "\ProjectBase.au3",@ScriptDir & "\" & $dName & "\" & $dName & ".au3")
   MsgBox(0,"Done","Project Folder created, Dev Tools copied." & @CRLF & @ScriptDir & "\" & $dName)
   ShellExecute(@ScriptDir & "\" & $dName)
   Exit(0)
   EndIf
 EndSwitch
WEnd