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
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.