Un problema con las fechas de los archivos

[Javier_A]

Esquema del funcionamiento:
- En una tabla tengo los path de unos directorios
- Al darle un clic de botón,( boton de actualizar), mi programa lee el contenido de los directorios y graba el nombre de los ficheros y su fecha de creación en otra tabla.

Cuando lo hago por primera vez no hay ningun problema, pero si le doy al boton,( boton de actualizar), por segunda vez ------ FileHandle siempre es <0 -----( porción de programa que hay debajo ), y las fechas son del 30/12/1899 ¿ Se puede solucionar esto ?

Código Delphi [-]
// Abrir el fichero
FileHandle := FileOpen(FileName,fmShareDenyNone);
 // inicializar
 Created := 0.0;
 Modified := 0.0;
 Accessed := 0.0;
// showmessage(IntTostr(FileHandle));
 // Ha tenido acceso al fichero?
 if FileHandle < 0 then
 RetVar := false
 else begin
 // Obtener las fechas
 RetVar := true;
 GetFileTime(FileHandle,@FTimeC,@FTimeA,@FTimeM);
 // Cerrar
 FileClose(FileHandle);
 // Creado
 FileTimeToLocalFileTime(FTimeC,LTime);
 if FileTimeToSystemTime(LTime,STime) then begin
 Created := EncodeDate(STime.wYear,STime.wMonth,STime.wDay);
 Created := Created + EncodeTime(STime.wHour,STime.wMinute,STime.wSecond,
  STime.wMilliSeconds);
 end;
etc..
etc..

Saludos

[[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);

[Neftali [Germán.Estévez]]

Empezado por Javier_A

...FileHandle siempre es <0

Significa que ha ocurrido un error al intentar abrir el fichero.
Prueba a mostrarlo con esto:

Código Delphi [-]
  SysErrorMessage(GetLastError);

[Javier_A]

Código Delphi [-]
SysErrorMessage(GetLastError);

El resultado es...

GetLasError: Cardinal(no address)
Data
GetLastError           2