Nota
La función, el método, el objeto o la propiedad descritos en este tema se deshabilitan si el servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente inseguras. 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 argumento de nombre de rutarequerido es una expresión de cadena que especifica un nombre de archivo. El nombre de ruta puede incluir el directorio o carpeta y la unidad.
Valores devueltos
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 de 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
Visual Basic para Aplicaciones especifica estas constantes. Los nombres se pueden usar en cualquier parte 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 de 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 situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
Para determinar los atributos que 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 And es cero si no se establece el atributo Archivo:
Result = GetAttr(FName) And vbArchive
Si se establece el atributo Archivo, se devuelve un valor distinto de cero.
Ejemplo
En este ejemplo se utiliza 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.