Hola a tod@s,
He implementado una aplicación donde guardo una serie de documentos con las fechas de creación, modificación y ultimo acceso, utilizando para ello este código ( sacado de la web de Neftali ).
He aquí una parte de él.
Cita:
r := FindFirst(nombre + '\*.*', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
begin
maxi:=length(DirInfo.Name);
fpos:=copy(DirInfo.Name,maxi-3,maxi);
if fpos='.doc' then
begin
if GetFileTimes(DirInfo.Name, CDate, MDate, ADate) then
begin
FechaCreacion := FormatDateTime('dd/mm/yyyy hh:nn',CDate);
Fechamodificacion := FormatDateTime('dd/mm/yyyy hh:nn',MDate);
FechaUltAcceso := FormatDateTime('dd/mm/yyyy hh:nn',ADate);
end
else
begin
FechaCreacion:='';
Fechamodificacion:='';
FechaUltAcceso:='';
end;
|
El funcionamiento de la aplicación es el siguiente:
* En una tabla cada usuario guarda los directorios donde guardan los documentos
* Con un clic a un boton la aplicación va al interior de los directorios y selecciona los documentos que se guardan en otra tabla ( nombre, fecha creacion, etc..)
Hasta aqui todo correcto, pero si uno de los usuarios vuelve a pulsar el boton, la aplicación borra los documentos anteriormente guardados por él, y graba los nuevos pero la fecha de creación la graba con una fecha del siglo pasado, ¿ por que pierde este dato ?
Lo curioso es que si borra los directorios, los vuelve a grabar y pulsa el boton para actualizar los documentos, vuelve a aparecer la fecha correcta.
¿ Me podeis decir como puedo solucionar esto ?
Os espero....
Un saludo