alle Dateien in einem Ordner löschen die mit "_QS" anfangen?

[s14]

Delphi-Quellcode:

if FindFirst(PFAD + '_QS*.*', faAnyFile, sr) = 0 then
  repeat
    DeleteFile(PFAD + sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
end;

oder so ähnlich