erstmal ein paar Fragen:
Wozu 2 Schleifen, zum Auslesen des Ordners?
Es wird beide Male mit der selben Maske gesucht,
demnach könnte man Dateien und Ordner im selben Surchgang suchen.
Zitat:
// muss das Auslesen der AccessTime hier gemacht werden? überprüfen!!!!
Nee, wieso?
FindFirst und FindNext stellen dieses Datum doch auch zur Verfügung.
Ansonsten bin ich Bärchens Meinung.
Schau dir vorallem mal folgende Punkte an:
- den Typ von LastAccess
- Rückgabewert von GetLastAccessTime wirklich ein String?
- und was willst du überhaupt mit dem Datum machen
- den Nutzen der Variable Mask
- und dann auch noch das:
Zitat:
if Directory[Length(Directory)] <> '\' then
begin
Directory := Directory+'\';
end;
Directory := Directory+'\';
Welchen Wert hat Directory nach diesen Befehlen?