Поиск и удаление файлов

[MAZADA]

Доброго времени суток.
У меня есть папка Бекав в которой сохраняются zip файлы бекапов.
Мне нужны бекапы только за последнии 10 дней, а все осталые должны удалятся.

Подскажыте плисс как сделать удаление файлов старше 10 дней.
наименование бекап файлов в формате дата
15.04.2016.zip
16.04.2016.zip
17.04.2016.zip
18.04.2016.zip

Вот я сделал поиск файлов ЛистБокс

    ListBox1.Clear;
FindRes:=FindFirst('d:\Backup\*.zip',faAnyFile,SR);

While FindRes=0 do
   begin
      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;




FindClose(SR);

Как сделать чтоб в лист боксе искались только файлы старше 10 дней.
Вот когда они будут у лисбоксе я думаю уже сделаю чтоб они удалялись.
Но можете и сразу подсказать как сделать удаление!
очень благодарен!

[evg_m]

FindFisrt + F1 + TSearchRec =

SearchRec defines file information searched for by FindFirst or FindNext.

Unit

SysUtils

Delphi syntax:

On Windows:

type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
.....................
Time contains the time stamp of the file. It can be converted to a TDateTime value using FileDateToDateTime.

наверх страницы ->Основы Delphi -> F -> FindFirst ->TSearchRec === See Also

if ???? <IncDay(date, -10) then .............

[MAZADA]

очень благодарен!

   SetCurrentDir(ini.ReadString('Backup','Backup',s));
if FindFirst('*.zip', faAnyFile, searchResult) = 0 then
begin
repeat
if FileDateToDateTime(searchResult.time) <= (date-10) then
begin
deletefile(searchResult.name);
end;
until FindNext(searchResult) <> 0;
FindClose(searchResult);

[TaLadno]

function GetOldFiles(APath, AExt: string; AOlderDataTime: TDateTime)
  : TStringList;
var SearchResult : TSearchRec;
    SearchKey: string;
begin
  result := TStringList.Create;

  SearchKey :=  APath + '*.' + AExt;
  if FindFirst(SearchKey, faAnyFile, SearchResult) = 0 then
  begin
    repeat
      if SearchResult.Attr = faDirectory then
        Continue;

      if SearchResult.TimeStamp < AOlderDataTime then
        result.Append(APath + SearchResult.Name);
    until FindNext(searchResult) <> 0;

    FindClose(searchResult);
  end;
end;

Memo.Lines.Text := GetOldFiles('D:\test\', 'txt', now).Text;

Ну как-то так. Допили напильником и вызов, и внутренности (и заодно глянь, мож где память потекла, это ДЗ тебе)

Упс, не заметил, что ответ уже дали