1. du übergibst ja der Prozedur ein Verzeichnis - wieso entfenst du dann von diesem das letzte Unterverzeichnis?
Delphi-Quellcode:
verz:=ExtractFilePath( mask );
such:=ExtractFileName( mask );
2. beginnen alle Dateien, die du suchen und löschen willst ein Plus am Dateianfang?
Code:
findfirst( verz +[color=red]'+'[/color]+ ext ...
3. das würde ja schon ausreichen:
Delphi-Quellcode:
while i < memEndungen.Lines.Count -1 do begin
{Alle Dateien suche}
if findfirst( verz + '*' + memEndungen.Lines.Strings[1] ,$3F,search ) = 0 then
ich mach erstmal hier Schluß, wenn das soweit stimmt, dann können wir ja weitermachen ^^ (muß jetzt mal weg)