copiar archivos ocultos

[piccolo2101]

Hola,

¿es posible copiar un archivo oculto y cambiarle las propiedades a la copia para que este no lo sea?

Un saludo y gracias.

[Neftali [Germán.Estévez]]

Creo que sí.
Y si no puedes hacerlo en orden inverso (eso seguro que sí).
(1) Cambia los atributos al original.
(2) Copia.
(3) Restaura los atributos al original.

[piccolo2101]

Bueno pues lo dicho...Mire un poquito y ya tengo el código

Código Delphi [-]
procedure Copia( source : string; dest : string);
var
   attr : integer;

begin
   if FileExists(source) then
   begin
      if CopyFile(PChar(source), PChar(dest),true) then
      begin
         attr := FileGetAttr(dest);
         if (attr and faHidden) <> 0 then
            FileSetAttr(dest, attr - faHidden);
      end;
end;

Un saludo y gracias.