DeleteFile -> Alle Dateien mit dem Textinhalt "Test" lösc

[Andreas L.]

Zitat von DeddyH:

Such mal zum Nachlesen nach FindAllFiles, ich bin gerade zu faul zum Code schreiben

Damit wird das ganz einfach:

Delphi-Quellcode:

var
  Files: TStrings;
  i: integer;
begin
  Files := TStringList.Create;
  try
    FindAllFiles(Files, 'C:\', '*.*', True);
    for i := Files.Count -1 downto 0 do
    begin
      if pos('Test', Files[i]) > 0 then
        DeleteFile(Files[i]);
    end;
  finally
    Files.Free;
  end;