FileDelete - alle anderen .exe Datein löschen mit Ausnahmen

    Hallo.

    ich würde gerne alle .exe Datein löschen, bis auf Ausnahmen. Beispiel:

    Ordnerinhalt:
    Test 1_2.exe
    Test 1_3.exe
    Test 2_1.exe
    Test 2_4.exe
    Test 3_2.exe

    Ich hätte gerne jede .exe gelöscht die nicht "1_" beinhaltet. Also sollten nur die ersten 2 .exe Datein nicht gelöscht werden, ist so etwas möglich?

    Einmal editiert, zuletzt von kelevr (24. Januar 2014 um 10:49)

    Speicher den Ordnerinhalt im Array und führe mit For If Abfragen durch.
    Kleiner Denkanstoß, bin am Handy :(

    [Blockierte Grafik: http://stefan.blagojevic.at/loading.gif]

    Design, Modellbau, CAD <3
    AutoCAD, ArchiCAD, REVIT (ist ein Scheiss, habe aber das Zertifikat)

    Cinema 4D, RuckZuck Statik Programm

    Michael Bay als Architekt


    Da eine Glasfassade! Booom Sichtbeton! Laminiertes Bild auf Mosaiksteinchen! Granit! Granit! Granit! Sichtbetonwand mit 50° Neigung!
    Holzverkleidung erscheint da! Boooooom!

    Nicht rekursive Lösungsvariante. (ungetestet)

    [autoit]

    $Path = "R:\Temp\"

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

    Global $search = FileFindFirstFile($Path & "*.exe")

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

    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf

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

    While 1
    Local $file = FileFindNextFile($search)
    If @error Then ExitLoop

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

    If StringInStr($file, "1_", 1) Then
    ConsoleWrite("Nicht löschen " & $Path & $file & @CRLF)
    ContinueLoop

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

    Else
    ConsoleWrite("Löschen " & $Path & $file & @CRLF)
    ;FileRecycle($Path&$file)
    EndIf
    WEnd

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

    FileClose($search)

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

    Exit

    [/autoit]

    FileRecycle ist auskommentiert nutzen auf eigene Gefahr!

    edit: Erste Zeile der Pfad braucht ein \ am Ende aus irgendeinem Grund will das Forum hier den aber nicht anzeigen X(

    $Path = "R:\Temp\"

    3 Mal editiert, zuletzt von BiNu (24. Januar 2014 um 15:26)