Aplicación
Contenido
Índice 🔎︎

# Función FileAttr

Devuelve el modo de acceso o el número de acceso de un archivo que se abrió con la instrucción Open. El número de acceso de archivo depende del sistema operativo (OSH = manejador de sistema operativo).

Si se utiliza un sistema operativo de 32 bits, no es posible usar la función FileAttr para determinar el número de acceso de archivo.

Consulte también: Open

## Sintaxis:

    FileAttr (NúmeroArchivo As Integer, Atributo As Integer)

## Valor de retorno:

Entero

## Parámetros:

NúmeroArchivo: El número del archivo que se abrió con la instrucción Open.

Atributo: Expresión de entero que indica el tipo de información que se desea devolver. Se pueden especificar los valores siguientes:

1: La función FileAttr indica el modo de acceso del archivo.

2: La función FileAttr devuelve el número de acceso de archivo del sistema operativo.

Si se especifica un atributo de parámetro con un valor de 1, se aplican los valores de retorno siguientes:

1 - INPUT (archivo abierto para entrada)

2 - OUTPUT (archivo abierto para salida)

4 - RANDOM (archivo abierto para acceso aleatorio)

8 - APPEND (archivo abierto para agregar)

32 - BINARY (archivo abierto en modo binario).

## Códigos de error:

5 Llamada a procedimiento no válida

52 Nombre de archivo o número incorrectos

## Ejemplo:

    Sub ExampleFileAttr

    Dim iNumber As Integer

    Dim sLine As String

    Dim aFile As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Output As #iNumber

        Print #iNumber, "Este es un renglón de texto"

        MsgBox FileAttr(#iNumero, 1 ),0,"Modo de acceso"

        MsgBox FileAttr(#iNumero, 2 ),0,"Atributo de archivo"

        Close #iNumber

    End Sub