need help with FileSelectFolder

[himoscriptsd 0]

I need help in this code

When the user presses the button 1

Selects a folder

I want to show the user's choice to the Input

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1_1 = GUICreate("title", 395, 416, 372, 195)

$MenuItem1 = GUICtrlCreateMenu("&firefox")

$MenuItem5 = GUICtrlCreateMenuItem("Web Site", $MenuItem1)

$MenuItem2 = GUICtrlCreateMenuItem("Update", $MenuItem1)

$MenuItem4 = GUICtrlCreateMenuItem("add on", $MenuItem1)

$MenuItem3 = GUICtrlCreateMenuItem("Setup version", $MenuItem1)

$Input1 = GUICtrlCreateInput("input", 128, 272, 185, 21)

$Button1 = GUICtrlCreateButton("Button1", 40, 264, 65, 33, $WS_GROUP)

$Group1 = GUICtrlCreateGroup("Group1", 8, 232, 377, 97)

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)

Dim $Form1_1_AccelTable[1][2] = [["!+4", $MenuItem3]]

GUISetAccelerators($Form1_1_AccelTable)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $Input1

; ;;;;;;

case $Button1

FileSelectFolder("Select a folder", "")

EndSwitch

WEnd

[BrewManNH 1,101]

You can do it this way:

case $Button1
$Foldername = FileSelectFolder("Select a folder", "")
GuiCtrlSetData($Input1, $Foldername) ; <<<<<<<<<<<<<<<<<<<<<<
EndSwitch

[himoscriptsd 0]

thx my friend