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.

Hola Toni.vi.

El atributo 8208 se corresponde con (8192+16) es decir: FILE_ATTRIBUTE_NOT_CONTENT_INDEXED + FILE_ATTRIBUTE_DIRECTORY.

Un saludo.

Muchas gracias.
Parece que este SO no debe estar muy fino.
De todas maneras si haces un copiar y pegar funciona bien.
Solo me ocurre con el copyfile.