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

[HolgerCW]

Danke, habe mir nun folgenden Code gebastelt:

Delphi-Quellcode:

if FindFirst(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\*.*',faAnyFile, searchResult) = 0 then
begin

 repeat

  If (pos('Test', searchResult.Name) <> 0) AND (searchResult.Size > 0) then
   DeleteFile(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\' + searchResult.Name);

  until FindNext(searchResult) <> 0;
    
  FindClose(searchResult);

end;

Gruss

Holger