Función GetAttr
Devuelve un valor Integer que representa los atributos de un archivo, directorio o carpeta.
Sintaxis
GetAttr(pathname)
El argumentopathname necesario es una expresión de cadena que especifica un nombre de archivo. pathname 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 | Escondido. |
| 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:
Estas constantes están especificadas por Visual Basic para aplicaciones. Los nombres se pueden usar en cualquier parte del código en lugar de los valores reales.
Comentarios
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 expresión And siguiente es cero si el atributo Archive no está establecido:
Result = GetAttr(FName) And vbArchive
Si el atributo Archive está establecido, se devuelve un valor distinto de cero.
Ejemplo
En este ejemplo se usa la función GetAttr para determinar los atributos de un archivo y del 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.
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.