Durch Input eingebebens Verzeichnis löschen

1. offizieller Beitrag

    hi @ all,
    ich versuche gerade
    mit AutoIT ein programm zu schreiben
    das einen Ordner den man in einem Input feld eingibt
    gelöscht wird(natürlich wird der ganze Pfad angegeben).
    dazu soll das programm dann den zu Löschenden Ordnerpfad
    vermerken(hilft z.B bei WoW den Cache zu löschen der immer
    wieder beim start des Spiel erscheint und für Fehlerhaftes
    anzeigen der Items sorgt) und ihn beim nächsten aufruf des Programmes
    Anzeigen das man das nicht immer selbst machen muss.
    das ist der code den ich geschrieben habe:

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <File.au3>

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

    #Region ### START Koda GUI section ### Form=
    $oIE = _IECreateEmbedded()
    $Form1 = GUICreate("UWC Launcher by Roggass", 821, 604, 133, 79)
    $obj = GUICtrlCreateObj($oIE, 16, 0, 788, 529)
    $Button1 = GUICtrlCreateButton("WoW Starten", 256, 544, 281, 57, 0)
    $WDB_Verzeichnisangabe = GUICtrlCreateInput("WDB_Verzeichnisangabe", 552, 544, 217, 21)
    $Button2 = GUICtrlCreateButton("WDB Löschen", 552, 568, 201, 33, 0)
    GUISetState(@SW_SHOW)
    _IENavigate($oIE,"http://uwcrew.eu")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    Shellexecute("WoW.exe")
    Exit
    Case $Button2
    DirRemove ("$WDB_Verzeichnisangabe")

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

    EndSwitch
    WEnd

    [/autoit]

    kann mir eventuell jemand das Skript anpassen das alles funktioniert?

    MfG Roggass

    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <File.au3>

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

    #Region ### START Koda GUI section ### Form=
    $oIE = _IECreateEmbedded()
    $Form1 = GUICreate("UWC Launcher by Roggass", 821, 604, 133, 79)
    $obj = GUICtrlCreateObj($oIE, 16, 0, 788, 529)
    $Button1 = GUICtrlCreateButton("WoW Starten", 256, 544, 281, 57, 0)
    $WDB_Verzeichnisangabe = GUICtrlCreateInput("WDB_Verzeichnisangabe", 552, 544, 217, 21)
    $Button2 = GUICtrlCreateButton("WDB Löschen", 552, 568, 201, 33, 0)
    GUISetState(@SW_SHOW)
    _IENavigate($oIE,"http://uwcrew.eu")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    Shellexecute("WoW.exe")
    Exit
    Case $Button2
    DirRemove (GUICtrlRead($WDB_Verzeichnisangabe))

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

    EndSwitch
    WEnd

    [/autoit]

    Schnapspost 999

    Hi,
    in der Hilfe gibt es

    [autoit]

    DirRemove ( "path" [, recurse] )

    [/autoit]


    Ich glaube das sollte ersmal helfen.

    Achso das mit dem merken ist auch kein Problem, einfach in eine INI-Datei schreiben.

    MfG
    Der_Doc

    • Offizieller Beitrag

    Hab gerade nix besseres zu tun , deshalb :

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <GUIConstantsEx.au3>

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

    $Pfad = IniRead(@Scriptdir&"\myfile.ini", "Selection1", "Pfad", "NotFound")
    #Region ### START Koda GUI section ### Form=
    $oIE = _IECreateEmbedded()
    $Form1 = GUICreate("UWC Launcher by Roggass", 821, 604, 133, 79)
    $obj = GUICtrlCreateObj($oIE, 16, 0, 788, 529)
    $Button1 = GUICtrlCreateButton("WoW Starten", 256, 544, 281, 57, 0)
    $WDB_Verzeichnisangabe = GUICtrlCreateInput("WDB_Verzeichnisangabe", 552, 544, 217, 21)
    If $Pfad <> "NotFound" Then GUICtrlSetData(-1, $Pfad)
    $Button2 = GUICtrlCreateButton("WDB Löschen", 552, 568, 201, 33, 0)
    GUISetState(@SW_SHOW)
    _IENavigate($oIE, "http://uwcrew.eu")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ShellExecute("WoW.exe")
    Exit
    Case $Button2
    IniWrite(@Scriptdir&"\myfile.ini", "Selection1", "Pfad", GUICtrlRead($WDB_Verzeichnisangabe))
    DirRemove(GUICtrlRead($WDB_Verzeichnisangabe))
    EndSwitch
    WEnd

    [/autoit]

    Und zur Auswahl des Pfades könntest du FileSelectFolder nehmen . Einfach mal in der Hilfe nachlesen .

    Edit : Hier mal mit FileSelectFolder .

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <GUIConstantsEx.au3>

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

    $Pfad = IniRead(@Scriptdir&"\myfile.ini", "Selection1", "Pfad", "NotFound")
    #Region ### START Koda GUI section ### Form=
    $oIE = _IECreateEmbedded()
    $Form1 = GUICreate("UWC Launcher by Roggass", 821, 604, 133, 79)
    $obj = GUICtrlCreateObj($oIE, 16, 0, 788, 529)
    $Button1 = GUICtrlCreateButton("WoW Starten", 256, 544, 281, 57, 0)
    $WDB_Verzeichnisangabe = GUICtrlCreateInput("WDB_Verzeichnisangabe", 552, 544, 180, 21)
    If $Pfad <> "NotFound" Then GUICtrlSetData(-1, $Pfad)
    $Button2 = GUICtrlCreateButton("WDB Löschen", 552, 568, 201, 33)
    $Button3 = GUICtrlCreateButton("Pfad", 750, 544, 60, 17)
    GUISetState(@SW_SHOW)
    _IENavigate($oIE, "http://uwcrew.eu")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ShellExecute("WoW.exe")
    Exit
    Case $Button2
    IniWrite(@Scriptdir&"\myfile.ini", "Selection1", "Pfad", GUICtrlRead($WDB_Verzeichnisangabe))
    DirRemove(GUICtrlRead($WDB_Verzeichnisangabe))
    Case $Button3
    $var = FileSelectFolder("WDB Verzeichnis wählen", "")
    If Not @Error then
    IniWrite(@Scriptdir&"\myfile.ini", "Selection1", "Pfad", $var)
    GUICtrlSetData($WDB_Verzeichnisangabe ,$var)
    EndIf
    EndSwitch
    WEnd

    [/autoit]