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).

Icono de nota

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:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Este es un renglón de texto"
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub

¡Necesitamos su ayuda!