Rekursives durchsuchen und Letzten Dateizugriff auslesen

[DeddyH]

Dann ändere mal den "Hauptteil" der Methode.

Delphi-Quellcode:

begin
  List.BeginUpdate;
  try
    if ClearList then
    begin
      List.Clear;
    end;
    Directory := trim(Directory);
    if Directory = '' then
    begin
      Exit;
    end;
    Directory := IncludeTrailingPathDelimiter(Directory);
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;