Such- und Löschfunktion

$StartPfad = "C:\Dokumente und Einstellungen"
$SuchOrdner = "XYZ"
$Daten = _GetFileList($StartPfad, "n",1)
$file = FileOpen(@MyDocumentsDir & "\Remove.log", 1) ; Logfile mit Eintrag der gelöschten Ordner
FileWriteLine($file, "Start: [" & @YEAR & "-" & @MON & "-" & @MDAY & " / " & @HOUR & ":" & @MIN & ":" & @SEC & "]" & @CRLF & "gelöscht wurden:")
For $i = 1 To $Daten[0]
If StringRight($Daten[$i], StringLen($Daten[$i]-StringInStr($Daten[$i], "\", Default, -1))) = $SuchOrdner Then
DirRemove($Daten[$i])
FileWriteLine($file, $Daten[$i])
EndIf
Next
FileWriteLine($file, "Ende: [" & @YEAR & "-" & @MON & "-" & @MDAY & " / " & @HOUR & ":" & @MIN & ":" & @SEC & "]")
FileClose($file)
MsgBox(0, '', "Ich haben fertig...")

; Function: _GetFileList($T_DIR,$T_MASK[,$DIR_ONLY=0])
; AutoIt Version: 3.0
; Language: English
; Platform: Win9x/NT/XP
; Author: jos van der Zande
;
; Find files in directory and subdirectories and return it in an Array, all coded in Autoit3
;
;********************************************************************************
;Recursive search for filemask
;********************************************************************************

Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
Local $N_DIRCOUNT = 0
Local $N_FILE
Local $N_SEARCH
Local $N_TFILE
Local $N_OFILE
Local $T_FILENAMES
Local $T_FILECOUNT
Local $T_DIRCOUNT = 1
Local $FILEMASK
; check Filemask \ for empty File-Array by GetDirOnly
If $FILEMASK = "n" Then $FILEMASK = "*.no"
; remove the end \ If specified
If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
$N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
; Exit if base dir doesn't exists
If Not FileExists($T_DIR) Then Return 0
; keep on looping until all directories are scanned
While $T_DIRCOUNT > $N_DIRCOUNT
$N_DIRCOUNT = $N_DIRCOUNT + 1
; find all subdirs in this directory and save them in a array
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Then
$T_DIRCOUNT = $T_DIRCOUNT + 1
$N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
EndIf
Wend
FileClose($N_SEARCH) ; find all Files that mtach the MASK
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
If $N_SEARCH = -1 Then ContinueLoop
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
$T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
$T_FILECOUNT = $T_FILECOUNT + 1
;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
EndIf
Wend
FileClose($N_SEARCH)
Wend
If $DIR_ONLY = 0 Then
$T_FILENAMES = StringTrimRight($T_FILENAMES,1)
$N_OFILE = StringSplit($T_FILENAMES,@CR)
Return( $N_OFILE )
Else
ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
$N_DIRNAMES[0] = $N_DIRCOUNT
Return $N_DIRNAMES
EndIf
EndFunc ;==>_GetFileList

For $i = 1 To $Daten[0]
$Position = StringInStr($Daten[$i], "\", Default, -1) ; ermittelt Position des ersten Backslash von rechts
$Anzahl = StringLen($Daten[$i]) - $Position ; ermittelt die Zeichenzahl des Ordnernamens
$VergleichOrdner = StringRight($Daten[$i], $Anzahl) ; Ordnername wird abgeschnitten
If $VergleichOrdner = $SuchOrdner Then
DirRemove($Daten[$i])
FileWriteLine($file, $Daten[$i])
EndIf
Next