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