Ver Mensaje Individual
  #1  
Antiguo 10-10-2011
toni.vi toni.vi is offline
Miembro
 
Registrado: may 2003
Ubicación: Sant Fost(Barcelona)
Posts: 102
Reputación: 22
toni.vi Va por buen camino
Error en copyfile

Desde hace unos dias y en una máquina en particular, no me deja copiar los ficheros y me da el attributo 8208, en el codigo delphi
Código Delphi [-]
procedure CopyDirectory(Origen, Desti : string);
var
 Files : integer;
 FOrigen, FDesti : string;
 ok : boolean;
 Search : TSearchRec;
 Attrib : Integer;
begin
 Files := FindFirst(Origen + '\*.*', faAnyFile, Search);
 while Files = 0 do
 begin
  if (Search.Attr <> faDirectory) then
  begin

     FOrigen := Origen + '\' + Search.Name;
     FDesti := Desti + '\' + Search.Name;

     ok := CopyFile(PChar(FOrigen),PChar(FDesti),false);
     if ok then
     begin
       Form1Copia.ProRegistroCopia       (FOrigen, FDesti, '1');
     end else
     begin
       if (Search.Name <> '.') and (Search.Name <> '..') then
       begin
//aqui es donde el search.attr tiene el valor 8208, y no me ha dejado copiar el fichero.
//---------------------------------------------------------------------------------
         ProRegistroCopiaErrores(FOrigen, FDesti, '3', Search.Attr);
       end;
     end;
  end;
end;

Desde otro ordenador la copia va perfecta, y lleva funcionando desde hace un par 2 años.
Alguna idea, o alguna lista de que significa este valor de 8208.
Gracias.
Responder Con Cita