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


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.