Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   copiar archivos ocultos (https://www.clubdelphi.com/foros/showthread.php?t=29384)

piccolo2101 20-01-2006 11:47:20

copiar archivos ocultos
 
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] 20-01-2006 11:54:46

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 20-01-2006 13:09:10

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.


La franja horaria es GMT +2. Ahora son las 12:42:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi