#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=PATHAdder.ico
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=PATHAdder
#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 ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("User Path Adder", 409, 72, 275, 238)
GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI")
Global $Loc = GUICtrlCreateInput("", 8, 8, 320, 24)
GUICtrlSetFont(-1,11,100, 0, "Consolas")
GUICtrlSetTip(-1,"Folder Location")
Global $Browse = GUICtrlCreateButton("📂", 376, 8, 25, 25)
GUICtrlSetFont(-1,14, 400, 0, "Segoe UI")
GUICtrlSetTip(-1,"Browse for Folder")
GUICtrlSetCursor(-1,0)
Global $Add = GUICtrlCreateButton("➕ Add This Folder to User Path (" & @UserName & ") ➕", 8, 40, 393, 25)
GUICtrlSetFont(-1,12, 400, 0, "Segoe UI")
GUICtrlSetTip(-1,"Add and Update Path Env")
GUICtrlSetCursor(-1,0)
Global $Paste = GUICtrlCreateButton("📫", 352, 8, 25, 25)
GUICtrlSetTip(-1,"Paste")
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1,14, 400, 0, "Segoe UI")
Global $ClearUp = GUICtrlCreateButton("❌", 328, 8, 25, 25)
GUICtrlSetTip(-1,"Clear Up")
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1,14, 400, 0, "Segoe UI")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Paste
    $KeyPaste = ClipGet()
    GUICtrlSetData($Loc,$KeyPaste)
  Case $ClearUp
    GUICtrlSetData($Loc,"")

  Case $Browse
    $FolderLoc = FileSelectFolder("Choose Folder",@MyDocumentsDir)
    GUICtrlSetData($Loc,$FolderLoc)

  Case $Add
    $PathAddDir = GUICtrlRead($Loc)
    Run('setx path %path%;' & $PathAddDir)
    EnvUpdate()
    MsgBox(0,"Success","Variable Path Updated" & @CRLF & $PathAddDir)

 EndSwitch
WEnd