Rekursives durchsuchen und Letzten Dateizugriff auslesen

[p80286]

@hoika
das seltsame

Delphi-Quellcode:

  if Directory[Length(Directory)] <> '\' then 
    begin 
      Directory := Directory+'\'; 
    end; 
    Directory := Directory+'\'; 
    ScanDir(Directory);

ist ja immer noch da, der fehlende Backslash könnte es also nicht sein.

Gruß
K-H