Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet 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, busca "modo de espacio aislado" en la Ayuda.

Devuelve un tipo de datos Long que representa el modo de archivo de los archivos abiertos con la instrucción Open .

Sintaxis

FileAttr ( filenumber , returntype )

La sintaxis de la función FileAttr tiene estos argumentos:

Argumento

Descripción

filenumber

Requerido. Entero. Cualquier número de archivo válida.

tipo de retorno

Requerido. Entero. Número que indica el tipo de información que se va a devolver. Especifique 1 para devolver un valor que indique el modo de archivo. Solo en sistemas de 16 bits, especifique 2 para recuperar un controlador de archivo de sistema operativo. returntype 2 no es compatible con sistemas de 32 bits y causa un error.

Valores devueltos

Cuando elargumento tipo de retorno es 1, los siguientes valores devueltos indican el modo de acceso a archivos:

Moda

Valor

Entrada

1

Resultado

2

Aleatorio

4

Anexar

8

Binario

32

Ejemplo

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.

En este ejemplo se usa la función FileAttr para devolver el modo de archivo y el controlador de archivo de un archivo abierto. El controlador de archivo se devuelve solo en sistemas de 16 bits; en sistemas de 32 bits, pasar 2 como segundo argumento genera un error.

Dim FileNum, Mode, HandleFileNum = 1    ' Assign file number.Open "TESTFILE" For Append As FileNum    ' Open file.Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).Handle = FileAttr(FileNum, 2) ' Returns file handle.Close FileNum    ' Close file.

¿Necesita más ayuda?

¿Quiere más opciones?

Explore las ventajas de las suscripciones, examine los cursos de aprendizaje, aprenda a proteger su dispositivo y mucho más.

Las comunidades le ayudan a formular y responder preguntas, enviar comentarios y leer a expertos con conocimientos extensos.