Es ist nur ein Anfang, die Extras (Fehlerbehandlung, rekursive Suche, Speichern der Pfade,...) darfst du selbst übernehmen.
Delphi-Quellcode:
function SortByDate (aList: TStringList; aIndex1, aIndex2: Integer): Integer;
begin
Result := Integer(aList.Objects[aIndex1]) - Integer(aList.Objects[aIndex2]);
end;
procedure GetSortedFileList (const aMask: string; aList: TStrings);
var
code: Integer;
SR: TSearchRec;
L: TStringList;
begin
L := TStringList.Create;
try
L.Sorted := False;
L.BeginUpdate;
code := FindFirst(aMask, faAnyFile, SR);
while (code = 0) do
begin
L.AddObject(SR.Name, TObject(SR.Time));
code := FindNext(SR);
end;
FindClose (SR);
L.CustomSort (SortByDate);
L.EndUpdate;
aList.Assign (L);
finally
L.Free;
end;
end;
Gruß Hawkeye