blob: ec631a6015eebae0afbbd05a7dc5fc133a9620eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
uses
sysutils;
var
S : string;
SR : TSearchRec;
r : longint;
begin
r:=FindFirst('*.*',faAnyFile,SR);
while r=0 do
begin
r:=FileAge(SR.Name);
if r<>-1 then
begin
S:=DateTimeToStr(FileDateToDateTime(r));
Writeln(SR.Name,' has Date ',S);
end;
r:=FindNext(SR);
end;
FindClose(SR);
end.
|
