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'; Present:= Cdate;
DecodeDate(Present, Year, Month, Day);
Fechacreacion:=IntTostr((Year*10000)+(Month*100)+Day);
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;
end;
end;
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
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