Propiedad Attributes

Establece o devuelve los atributos de archivos o carpetas. Lectura y Escritura o Sólo lectura, dependiendo del atributo.

objeto.Attributes [= nuevosatributos]

Argumentos

objeto: Requerido. Siempre debe ser el nombre de un objeto File o Folder.
nuevosatributos: Opcional. Si se proporciona, nuevosatributos es el nuevo valor de los atributos del objeto especificado.

Valores

El argumento nuevosatributos puede tener cualquiera de los siguientes valores o una combinación lógica de los mismos:

Constante	Valor	Descripción
Normal	0	Archivo normal. No se establecen atributos.
Solo lectura	1	Archivo de sólo lectura. El atributo es de lectura y escritura.
Oculto	2	Archivo oculto. El atributo es de lectura y escritura.
Sistema	4	Archivo del sistema. El atributo es de lectura y escritura.
Volumen	8	Etiqueta del volumen de la unidad de disco. El atributo es de sólo lectura.
Directorio	16	Carpeta o directorio. El atributo es de sólo lectura.
Archivo	32	El archivo cambió desde la última copia de seguridad. El atributo es de lectura y escritura.
Alias	64	Vínculo o acceso directo. El atributo es de sólo lectura.
Comprimido	128	Archivo comprimido. El atributo es de sólo lectura.

Comentarios

El siguiente código muestra el uso de la propiedad Attributes con un archivo:

[JScript]
function AlternarBitDeModificado(especificaciódenarchivo)
{
   var fso, f, r, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFile(especificaciondearchivo)
   if (f.attributes && 32)
   {
      f.attributes = f.attributes - 32;
      s = "El bit de archivo está desactivado.";
   }
   else
   {
      f.attributes = f.attributes + 32;
      s =  "El bit de archivo está desactivado.";
   }
   return(s);
}
[VBScript]
Function AlternarBitDeArchivo(especificaciódenarchivo)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(especificaciódenarchivo)
   If f.attributes and 32 Then
      f.attributes = f.attributes - 32
      AlternarBitDeArchivo = "Se ha borrado el bit de archivo."
   Else
      f.attributes = f.attributes + 32
      AlternarBitDeArchivo = "Se ha establecido el bit de archivo."
   End If
End Function

Consulte también

Se aplica a: Objeto File | Objeto Folder