[Javier_A]

Hola Neftali,

¡¡ Arreglados los mensajes !!

Te envío el código completo del procedimiento:

Código Delphi [-]
For n:=1 To Caminos.RecordCount do
begin
 nombre:=caminos.FieldByName('camino').Value;
 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;
    try
    Servidor.Open;
    except
    showmessage('Base de datos abierta, intentelo mas tarde');
    exit;
    end;
    Servidor.append;


    Servidor.FieldByName('Nombre').Value:=DirInfo.Name;
    If nombre<>'C:\' then
      Servidor.FieldByName('CaminoLocal').Value:=Nombre+'\'+dirInfo.Name
    else
       Servidor.FieldByName('CaminoLocal').Value:=Nombre+dirInfo.Name;
    If nombre<>'C:\' then
     Servidor.FieldByName('CaminoRemoto').Value:='\\Javier\'+copy(nombre,4,length(nombre))+'\'+dirInfo.Na  me
    else
    Servidor.FieldByName('CaminoRemoto').Value:='\\Javier'+copy(nombre,4,length(nombre))+'\'+dirInfo.Nam  e;
    Servidor.FieldByName('Usuario').Value:='JAVIER'; //  Mayusculas
    Present:= Cdate;
    DecodeDate(Present, Year, Month, Day);
    Fechacreacion:=IntTostr((Year*10000)+(Month*100)+Day);
//    Showmessage(Fechacreacion);
    Servidor.FieldByName('FechaCreacion').Value:=Fechacreacion;
    Servidor.FieldByName('FechaModificacion').Value:=Fechamodificacion;
    Servidor.FieldByName('FechaUltacceso').Value:=Fechaultacceso;
    Servidor.FieldByName('empres').Value:=001;
    Servidor.FieldByName('Cliente').Value:=copy(Servidor.FieldByName('Nombre').Value,pos('_',Servidor.Fi  eldByName('Nombre').Value)+1,length(Servidor.FieldByName('Nombre').Value));
    Servidor.Post;
//           Graba 
       end;
      end;
       r := FindNext(DirInfo);
 end;
   SysUtils.FindClose(DirInfo);
//    Showmessage(nombre+'  '+IntTostr(suma));
caminos.Next;
end;
Bitbtn1.Enabled:=True;
Bitbtn2.Enabled:=True;
Bitbtn5.Enabled:=True;
Form1.Refresh;

end;

Si, es cuando doy una segunda pasada, y la fecha de creación que me da es 30/diciembre/1899 ????.
¿ Sabes que motivo puede ocasionar esto ?

Gracias por tu ayuda y por tu web
Un saludo