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