Compartir a través de

Attributes (propiedad)

  • Artículo

Establece o devuelve los atributos de archivos o carpetas. Lectura y escritura o solo lectura, según el atributo.

Sintaxis

objeto . Atributos [= newattributes ]

La propiedad Attributes tiene estas partes:

Parte Descripción
object Obligatorio. Siempre es el nombre de un objeto File o Folder .
newattributes Opcional. Si se proporciona, newattributes es el nuevo valor de los atributos del objeto especificado.

Configuración

El argumento newattributes puede tener cualquiera de los siguientes valores o cualquier combinación lógica de los siguientes valores.

Constante Valor Descripción
Normal 0 Archivo normal. No hay establecido ningún atributo.
ReadOnly 1 Archivo de solo lectura. El atributo es de lectura/escritura.
Hidden 2 Archivo oculto. El atributo es de lectura/escritura.
System 4 Archivo de sistema. El atributo es de lectura/escritura.
Volume 8 Etiqueta de volumen de la unidad de disco. El atributo es de solo lectura.
Directory 16 Carpeta o directorio. El atributo es de solo lectura.
Archivar 32 El archivo ha cambiado desde la última copia de seguridad. El atributo es de lectura/escritura.
Alias 1024 Vínculo o acceso directo. El atributo es de solo lectura.
Comprimido 2048 Archivo comprimido. El atributo es de solo lectura.

Comentarios

En el código siguiente se muestra el uso 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("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
            f.attributes = f.attributes - 32
            MsgBox "Archive bit is cleared."
        Else
            MsgBox "Archive bit remains set."
        End If
    Else
        r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.