schneller Aktenvernichter

    hey ich hab ein problem ich hab alles hingekriegt bis auf das wenn man
    auf dem Button Zerstören drücke die datein die ausgewählt sind auch dann gelöscht werden.
    das selbe auch mit dem button um ganze ordner zu löschen.

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Aktenvernichter ©crocojunk", 402, 282, 192, 124)
    $input1 = GUICtrlCreateInput("", 136, 104, 257, 21)
    $Button1 = GUICtrlCreateButton("select file", 8, 104, 107, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $input2 = GUICtrlCreateInput("", 136, 152, 257, 21)
    $Button3 = GUICtrlCreateButton("select file", 8, 152, 107, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Label1 = GUICtrlCreateLabel("Akten vernichter", 128, 24, 126, 25)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button2 = GUICtrlCreateButton("Zerstören", 88, 232, 187, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button4 = GUICtrlCreateButton("select ordner", 8, 192, 107, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    GUICtrlCreateInput("", 136, 192, 257, 21)
    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
    $configname = FileOpenDialog("Select File", "C:\Users\" & @UserName, "Files (*.*)", 1 )
    GUICtrlSetData ($input1, $configname)

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

    case $Button3
    $configname = FileOpenDialog ("Select File", "C:\Users\" & @UserName, "Files (*.*)", 1 )
    GUICtrlSetData ($input2, $configname)

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

    Case $Button2
    $configname = FileDelete ("C:\Users\Patrik Finger\nix")

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

    EndSwitch
    WEnd

    [/autoit]

    könnt ihr mir helfen was ich reinschreiben muss??

    danke

    Einmal editiert, zuletzt von crocojunk (17. März 2010 um 15:35)

    Willst du jeweils immer nur eine Datei löschen lassen oder auch mal mehrere?
    Um Ordner auszuwählen nimm FileSelectFolder.
    Bei FileDelete musst du schon die Variable mit übergeben. Wenn du mehrere Dateinen löschen willst gleichzeitig mach dies am besten in einer For-Schleife.

    hä wie meinst du das

    ich meine einzelne datein

    und einzelne ordner

    ich möchte mehrere auswählen und die dann alle löschen können gleichzeitig

    Zitat von crocojunk

    hä wie meinst du das

    ich meine einzelne datein

    und einzelne ordner

    ich möchte mehrere auswählen und die dann alle löschen können gleichzeitig

    Zuerst sagst du einzelne und dann mehrere. Du kannst doch mit einem Aufruf von FileOpenDialog auch mehrere Auswählen (s. Hilfe).

    Hier mal als Ansatz. :D

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <String.au3>
    #include <Array.au3>

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

    Global $SelectFolder

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Aktenvernichter ©crocojunk", 402, 282, 192, 124)
    $Input1 = GUICtrlCreateInput("", 136, 104, 257, 21)
    $Button1 = GUICtrlCreateButton("select file(s)", 8, 104, 107, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Label1 = GUICtrlCreateLabel("Akten vernichter", 128, 24, 126, 25)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button2 = GUICtrlCreateButton("Zerstören", 88, 232, 187, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button3 = GUICtrlCreateButton("select ordner", 8, 192, 107, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Input2 = GUICtrlCreateInput("", 136, 192, 257, 21)
    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
    $SelectFiles = FileOpenDialog("Select File", "C:\Users\" & @UserName, "Files (*.*)", 5)
    GUICtrlSetData ($Input1, $SelectFiles)
    Case $Button3
    $SelectFolder = FileSelectFolder("Wähle einen Ordner aus", "C:\Users\" & @UserName, 6)
    ConsoleWrite(@CRLF & $SelectFolder)
    GUICtrlSetData ($Input2, $SelectFolder)
    Case $Button2
    $aSplit = StringSplit($SelectFiles, "|")
    _ArrayDisplay($aSplit)
    For $i = 1 To $aSplit[0]
    If $aSplit[0] = 1 Then
    FileDelete($aSplit[1])
    ConsoleWrite(@CRLF & $aSplit[1])
    ElseIf $i <> 1 Then
    FileDelete($aSplit[1] & "\" & $aSplit[$i])
    ConsoleWrite(@CRLF & $aSplit[1] & "\" & $aSplit[$i])
    EndIf
    Next
    DirRemove($SelectFolder, 1)
    GUICtrlSetData ($Input1, "")
    GUICtrlSetData ($Input2, "")
    EndSwitch
    WEnd

    [/autoit]

    Achja entscheide dich mal für eine Sprache in deiner GUI. Nix gemischtes.

    Zitat von crocojunk

    wie sprache gibt es verschiedene??


    Jep, gibt es, sogar sehr viele. In deinem Fall sind es Deutsch und Englisch. Eigentlich ist das kein großes Problem, aber nicht schön.

    Er meint, dass du bei den Angaben nicht gemischt schreiben solltest (grün markiert).

    Spoiler anzeigen
    [autoit]


    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Aktenvernichter ©crocojunk", 402, 282, 192, 124)
    $Input1 = GUICtrlCreateInput("", 136, 104, 257, 21)
    $Button1 = GUICtrlCreateButton("select file(s)", 8, 104, 107, 25, $WS_GROUP) ;Hier statt Select... einfach deutsch
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Label1 = GUICtrlCreateLabel("Akten vernichter", 128, 24, 126, 25)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button2 = GUICtrlCreateButton("Zerstören", 88, 232, 187, 33, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Button3 = GUICtrlCreateButton("select ordner", 8, 192, 107, 25, $WS_GROUP); Hier auch
    GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
    $Input2 = GUICtrlCreateInput("", 136, 192, 257, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit]

    Am besten für Deutsch ODER Englisch entscheiden.