t_id
677
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
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.