Leer/Cambiar los atributos de un fichero

Artículo por Club Developers · 31 diciembre 2005

2907 vistas

La función FileGetAttr permite recuperar los atributos de un fichero. En caso de no poder, devolverá -1.

La función FileSetAttr permite modificar esos atributos devolviendo 0 si la operación ha tenido éxito o el código de error Windows si no lo ha tenido.



delphi
  1. var 
  2.   Attrib: Word; 
  3. begin 
  4.   Attrib := FileGetAttr('C:\Temp\Test.txt'); 
  5.   
  6.   if Attrib and faReadOnly = faReadOnly then 
  7.   begin 
  8.     // modificamos el atributo ReadOnly
  9.     FileSetAttr('C:\Temp\Test.txt', Attrib and not faReadOnly); 
  10.   end; 
  11. end;



Podemos usar la siguientes variables:
faReadOnly: fichero de sólo lectura
faHidden: fichero oculto
faSysFile: fichero de sistema
faVolumeID: fichero identificador de volumen
faDirectory: fichero carpeta
faArchive: fichero archivo
faAnyFile: cualquier fichero