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 valor Long que representa el modo de archivo para los archivos abiertos con la instrucción Open .
Sintaxis
FileAttr(filenumber,returntype)
La sintaxis de la función FileAttr consta de los siguientes argumentos:
| Argumento | Descripción |
|---|---|
| número de archivo | Obligatorio. Entero. Cualquier número de archivo válido. |
| Tipo de retorno | Obligatorio. Entero. Número que indica el tipo de información 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 identificador de archivo del sistema operativo. ReturnType 2 no se admite en sistemas de 32 bits y causa un error. |
Valores devueltos
Cuando el argumento ReturnTypees 1, los siguientes valores devueltos indican el modo de acceso al archivo:
| 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 identificador de archivo de un archivo abierto. El identificador 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, Handle
FileNum = 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.