Función GetAttrGetAttr function

Devuelve un valor Integer que representa los atributos de un archivo, directorio o carpeta.Returns an Integer representing the attributes of a file, directory, or folder.

SintaxisSyntax

GetAttr (nombreruta)GetAttr(pathname)

El argumento PathName necesario es una expresión de cadena que especifica un nombre de archivo.The required pathname argument is a string expression that specifies a file name. pathname puede incluir el directorio o carpeta y la unidad.The pathname may include the directory or folder, and the drive.

Valores devueltosReturn values

El valor devuelto por GetAttr es la suma de los siguientes valores de atributo:The value returned by GetAttr is the sum of the following attribute values:

ConstanteConstant ValorValue DescripciónDescription
vbNormalvbNormal comprendi0 Normal.Normal.
vbReadOnlyvbReadOnly 1 1 Solo lectura.Read-only.
vbHiddenvbHidden 2 2 Mostrar.Hidden.
VbSystemvbSystem 4 4 Archivo de sistema.System file. No disponible en Macintosh.Not available on the Macintosh.
vbDirectoryvbDirectory 16 16 Directorio o carpeta.Directory or folder.
vbArchivevbArchive 3232 El archivo ha cambiado desde la última copia de seguridad.File has changed since last backup. No disponible en Macintosh.Not available on the Macintosh.
vbAliasvbAlias 6464 El nombre de archivo especificado es un alias.Specified file name is an alias. Disponible solo en Macintosh.Available only on the Macintosh.

Nota

[!NOTA] Estas constantes las especifica Visual Basic for Applications.These constants are specified by Visual Basic for Applications. Los nombres se pueden usar en cualquier parte del código en lugar de los valores reales.The names can be used anywhere in your code in place of the actual values.

ObservacionesRemarks

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.To determine which attributes are set, use the And operator to perform a bitwise comparison of the value returned by the GetAttr function and the value of the individual file attribute you want. Si el resultado no es cero, ese atributo se establece para el archivo con nombre.If the result is not zero, that attribute is set for the named file. Por ejemplo, el valor devuelto de la expresión And siguiente es cero si el atributo Archive no está establecido:For example, the return value of the following And expression is zero if the Archive attribute is not set:

Result = GetAttr(FName) And vbArchive

Si el atributo Archive está establecido, se devuelve un valor distinto de cero.A nonzero value is returned if the Archive attribute is set.

EjemploExample

En este ejemplo se usa la función GetAttr para determinar los atributos de un archivo y del directorio o carpeta.This example uses the GetAttr function to determine the attributes of a file and directory or folder. En Macintosh, solo están disponibles las constantes vbNormal, vbReadOnly, vbHiddeny vbAlias .On the Macintosh, only the constants vbNormal, vbReadOnly, vbHidden, and vbAlias are available.

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énSee also

Soporte técnico y comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.