Fórum Delete com caracter curinga #227756

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
   I := FindFirst(´c:\*.avi´, faAnyFile, SR);
   while I = 0 do begin
      if (SR.Attr and faDirectory) <> faDirectory then
         if not DeleteFile(´c:\´ + SR.Name) then
            ShowMessage(´Não consegui excluir c:\´ + SR.Name);
   I := FindNext(SR);
  end;
end;