Durchsuchen Feld und ni Input angeben...

    Guten Tag ,

    ich brauche auch mal wieder bissl Hilfe.

    Unzwar ich möchte einen Button der Durchsuchen heißt und eine Inputbox haben ..

    Wenn ich auf den Durchsuchen Button klicken soll das fenster kommen wo man dateien suchen kann ..
    Wenn ich eine datei ausgesucht habe soll der pfad in die input box .. nur wie mache ich daS ?

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form1", 301, 89, 185, 188)
    $Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
    $Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

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

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]

    Das ist der Code vom Button und Inputbox.. wie realisiere ich das was ich vor hab ?

    Ich hoffe ihr könnt mir helfen ..

    Mfg

    killgamer

    Einmal editiert, zuletzt von killgamer (16. Dezember 2008 um 14:38)

    Nur Pfad anzeigen oder Dateiname mit Pfad? Hab mal die einfachste Variante gewählt.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form1", 301, 89, 185, 188)
    $Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
    $Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlSetData($Input1, FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)'))
    EndSwitch
    WEnd

    [/autoit]

    Danke dir genausowas hab ich gesucht..

    Danke danke danke ...

    Meine Frage ist damit dann auch eigentlich gelöst..

    Danke nochmals

    mfg

    Nichts zu danken. Auf gelöst kannst du selber umstellen, indem du den ersten Beitrag editierst.

    Noch ein Beispiel mit Pfad und Dateinamen getrennt
    [autoit]

    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form1", 301, 89, 185, 188)
    $Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
    $Input2 = GUICtrlCreateInput("", 40, 60, 121, 21)
    $Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Datei = FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)')
    If @error Then ContinueCase
    GUICtrlSetData($Input1, StringLeft($Datei, StringInStr($Datei,'\', 0, -1)))
    GUICtrlSetData($Input2, StringTrimLeft($Datei, StringInStr($Datei,'\', 0, -1)))
    EndSwitch
    WEnd

    [/autoit]