GetAttr (Función)

Artículo
10/07/2008

Actualización: noviembre 2007

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

La característica My proporciona mayor productividad y rendimiento en las operaciones de E/S del archivo que si se utiliza FileAttribute. Para obtener más información, vea My.Computer.FileSystem (Objeto).

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Parámetros

PathName
Requerido. Expresión String que especifica un archivo, directorio o nombre de carpeta. PathName puede incluir el directorio o carpeta y la unidad.

Valor devuelto

El valor devuelto por GetAttr es la suma de los siguientes valores de enumeración:

Valor	Constante	Descripción
Normal	vbNormal	Normal.
ReadOnly	vbReadOnly	Sólo lectura.
Hidden	vbHidden	Oculto.
System	vbSystem	Archivo de sistema.
Directory	vbDirectory	Directorio o carpeta.
Archive	vbArchive	El archivo ha cambiado desde la última copia de seguridad.
Alias	vbAlias	El archivo tiene un nombre diferente.

Nota:
El lenguaje de Visual Basic especifica estas enumeraciones. Se pueden utilizar los nombres en cualquier lugar del código en vez de los valores reales.

Excepciones

Tipo de excepción	Número de error	Condición
IOException	52	Pathname no es válido o contiene caracteres comodín.
FileNotFoundException	53	El archivo de destino no existe.

Consulte la columna "Número de error" si está actualizando aplicaciones de Visual Basic 6.0 que utilizan el control de errores no estructurado. (Se puede comparar el número de error con respecto a Number (Propiedad, objeto Err)). Sin embargo, siempre que sea posible, se debe considerar la sustitución de dicho control de errores por Información general sobre el control estructurado de excepciones de Visual Basic.

Comentarios

A fin de determinar qué atributos se establecen, utilice el operador And para realizar una comparación bit a bit del valor que devuelve la función GetAttr y el valor del atributo del archivo concreto que desee. Si el resultado no es cero, se establece ese atributo para el archivo nombrado. Por ejemplo, el valor devuelto de la siguiente expresión And es cero si el atributo Archive no se ha establecido:

Result = GetAttr(FName) And vbArchive

Se devuelve un valor distinto de cero si se ha establecido el atributo Archive.

Ejemplo

En este ejemplo se utiliza la función GetAttr para determinar los atributos de un archivo, directorio o carpeta.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If