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

[HolgerCW]

Hallo zusammen,

mit DeleteFile kann man ja Dateien auf der Festplatte löschen.

Wie kann ich nun alle Dateien auf der Festplatte löschen die das Wort "Test" beinhalten ?

Gruss

Holger

[DeddyH]

Meinst Du im Dateinamen oder im Inhalt?

[HolgerCW]

im Dateinamen

[DeddyH]

Dann such doch mit FindFirst/FindNext nach *Test*

[HolgerCW]

Wie mache ich das denn genau mit FindFirst/FindNext ?

Es gibt z.b. drei Dateien mit den Dateinamen:

Hallo_Test.txt
Test_it.jpg
Text.bmp

Es müssten nun die ersten beiden Dateien gelöscht werden ?

Gruss

Holger

[DeddyH]

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

[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

[Andreas L.]

Zitat:

Zitat von DeddyH

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

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;

[DeddyH]

Wieso mit *.* suchen, um dann *Test* wieder rauszufiltern?

[Andreas L.]

Zitat:

Zitat von DeddyH

Wieso mit *.* suchen, um dann *Test* wieder rauszufiltern?

War mir nicht sicher ob derartige Wildcards funktionieren:

Delphi-Quellcode:

FindAllFiles(Files, 'C:\', '*test*.*', True);