pfad

1. offizieller Beitrag

    Kann mir vllt jemand was schnelles einfaches scripten indem man einfach ein fenster bekommt indem man ein pfad angegeben kann . und dieser pfad dan einfach in ein input angezeigt wird.

    mfg Secret1994

    Einmal editiert, zuletzt von Secret1994 (7. Februar 2010 um 00:19)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>

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

    GUICreate("Pfad", 400, 40)
    $Input = GUICtrlCreateInput("", 10, 10, 270, 20)
    $Button = GUICtrlCreateButton("Pfad ändern", 290, 10, 100, 20, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button
    $sPfad = FileOpenDialog("Öffnen", Default, "Alle Dateien (*.*)")
    If Not @error Then GUICtrlSetData($Input, $sPfad)
    EndSwitch
    WEnd

    [/autoit]
    Spoiler anzeigen
    [autoit]

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

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

    Opt("GUIOnEventMode", 1)

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

    $Form3 = GUICreate("Form3", 235, 55, 302, 218)
    $Input1 = GUICtrlCreateInput("", 16, 16, 121, 21)
    $Button1 = GUICtrlCreateButton("Durchsuchen", 144, 16, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

    GUICtrlSetOnEvent($Button1, "_select")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")

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

    While 1
    Sleep(100)
    WEnd

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

    Func _select()
    $select = FileOpenDialog("Datei", @ProgramFilesDir, "Alle (*.*)", 1 + 2)
    If @error Then
    MsgBox(0, "Fehler", "Es wurde keine Datei gewählt!")
    Else
    GUICtrlSetData($Input1, $select)
    EndIf
    EndFunc ;==>_select

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

    Func _exit()
    Exit
    EndFunc ;==>_exit

    [/autoit]