Löschen von files , by Name Pattern

[bernhard_LA]

kann ich mit diesem code

Delphi-Quellcode:

function DeleteFiles(const AFile: string): boolean;
var
   sh: SHFileOpStruct;
begin
   ZeroMemory(@sh, SizeOf(sh));
   with sh do
   begin
     Wnd := Application.Handle;
     wFunc := FO_DELETE;
     pFrom := PChar(AFile +#0);
     fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   end;
   result := SHFileOperation(sh) = 0;
end;

auch files mit einem Namen Pattern löschen wie

• DeleteFiles(c:\temp\A*_new.txt');
• DeleteFiles(c:\temp\A*_B_*new.txt');

Aktuell macht die Funktion nicht so wie ich es will ....