ObtenerAtributo (función, GetAttr)

Nota: La función, el método, el objeto o la propiedad que se describe en este tema está deshabilitada si el servicio microsoft Jet Expression se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busque "modo de espacio aislado" en la Ayuda.

Devuelve un entero que representa los atributos de un archivo, directorio o carpeta.

Sintaxis

GetAttr ( pathname )

El nombre de rutaargumento es un expresión de cadena que especifica un nombre de archivo. El nombre de ruta puede incluir el directorio o carpeta y la unidad.

Devolver valores

El valor devuelto por GetAttr es la suma de los siguientes valores de atributo:

Constante

Valor

Descripción

vbNormal

0

Normal.

vbReadOnly

1

Solo lectura.

vbHidden

2

Oculto.

vbSystem

4

Archivo del sistema. No disponible en Macintosh.

vbDirectory

16

Directorio o carpeta.

vbArchive

32

El archivo ha cambiado desde la última copia de seguridad. No disponible en Macintosh.

vbAlias

64

El nombre de archivo especificado es un alias. Disponible solo en Macintosh.


Nota: Estas constantes se especifican mediante Visual Basic para Aplicaciones. Los nombres se pueden usar en cualquier lugar del código en lugar de los valores reales.

Observaciones

Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione Referencia para desarrolladores en la lista desplegable junto a Buscar y escriba uno o más términos en el cuadro de búsqueda.

Para determinar qué atributos se establecen, use el operador And para realizar una comparación bit a bit del valor devuelto por la función GetAttr y el valor del atributo de archivo individual que desee. Si el resultado no es cero, ese atributo se establece para el archivo con nombre. Por ejemplo, el valor devuelto de la siguiente expresión Y es cero si no se establece el atributo Archivo:

Result = GetAttr(FName) And vbArchive

Se devuelve un valor distinto de cero si se establece el atributo Archivo.

Ejemplo

En este ejemplo se usa la función GetAttr para determinar los atributos de un archivo y directorio o carpeta. En Macintosh, solo están disponibles las constantes vbNormal, vbReadOnly, vbHidden y vbAlias.

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.

¿Necesita más ayuda?

Ampliar sus conocimientos de Office
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×