Attributes (Propiedad)
Descripción
Establece o devuelve los atributos de archivos o carpetas. Lectura o escritura, o sólo lectura, dependiendo del atributo.
Sintaxis
objeto.Attributes [= atributosNuevos]
La propiedad Attributes consta de las siguientes partes:
| Parte | Descripción |
|---|---|
| objeto | Requerido. Siempre el nombre de un objeto File o Folder. |
| atributosNuevos | Opcional. Si se proporciona, atributosNuevos es el nuevo valor para los atributos del objeto especificado. |
Valores
El argumento atributosNuevos puede tener cualquiera de los valores siguientes o cualquier combinación lógica de los valores siguientes:
| Constante | Valor | Descripción |
|---|---|---|
| Normal | 0 | Archivo normal. No se establecen atributos. |
| ReadOnly | 1 | Archivo de sólo lectura. El atributo es de lectura o escritura. |
| Hidden | 2 | Archivo oculto. El atributo es de lectura o escritura. |
| System | 4 | Archivo del sistema. El atributo es de lectura o escritura. |
| Volume | 8 | Etiqueta del volumen de la unidad de disco. El atributo es de sólo lectura. |
| Directory | 16 | Carpeta o directorio. El atributo es de sólo lectura. |
| Archive | 32 | El archivo cambió desde la última copia de seguridad. El atributo es de lectura o escritura. |
| Alias | 64 | Vínculo o método abreviado. El atributo es de sólo lectura. |
| Compressed | 128 | Archivo comprimido. El atributo es de sólo lectura. |
Comentarios
El código siguiente demuestra la utilización de la propiedad Attributes con un archivo:
Sub SetClearArchiveBit(filespec)
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
If f.attributes and 32 Then
r = MsgBox("El bit Archivo está establecido, ¿desea borrarlo?", vbYesNo, "Establecer/Borrar bit Archivo ")
If r = vbYes Then
f.attributes = f.attributes - 32
MsgBox "El bit Archivo ha sido borrado."
Else
MsgBox "El bit Archivo permanece establecido."
End If
Else
r = MsgBox("El bit Archivo no está establecido. ¿Desea verlo?", vbYesNo, "Establecer/Borrar bit Archivo")
If r = vbYes Then
f.attributes = f.attributes + 32
MsgBox "El bit Archivo está establecido."
Else
MsgBox "El bit Archivo permanece borrado."
End If
End If
End Sub