gefundenes file löschen

[himitsu]

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)