Un problema con las fechas de los archivos

[[Lepe]]

Si estas usando FindFirst para encontrar los archivos, tienes el campo FindData, y dentro de ella tienes la fecha de creación, usando FiletimeToDateTime ya tienes la fecha exacta.

Ten en cuenta el sistema operativo y el sistema de archivos, En NTFS si se recaba la información de todas las fechas; aunque puede desabilitarse por windows la "fecha de última modificación". En FAT no se recaban todas las fechas.


Aqui he usado un TStringList (Lista) para almacenar los valores como si de un archivo TiniFile se tratara, de esa forma se recuepera facilmente las fechas y nombres de archivo.

Código Delphi [-]
  if FindFirst(dir+'*.txt', faAnyFile , s) = 0 then
  begin
    repeat
        fecha := FiletimeTodatetime(s.FindData.ftCreationTime);
        List.Add(s.Name+'='+DateTimeToStr(fecha));
    until FindNext(s) <> 0;
    sysutils.FindClose(s);