FileAttr Function

Devuelve el mou d'accesu o'l númberu d'accesu d'un ficheru que s'abrir cola instrucción Open. El númberu d'accesu de ficheru depende del sistema operativu (OSH = remanador de sistema operativu).

Iconu de nota

Si utiliza un sistema operativu de 32 bits, nun ye posible usar la función FileAttr pa determinar el númberu d'accesu de ficheru.


Consulte tamién: Open

Sintaxis:


FileAttr (NúmberuFicheru As Integer, Atributu As Integer)

Valor de torna:

Enteru

Parámetros:

NúmberuFicheru: El númberu del ficheru que s'abrir cola instrucción Open.

Atributu: Espresión d'enteru qu'indica'l tipu d'información que se deseya devolver. Puen especificase los valores siguientes:

1: La función FileAttr indica el mou d'accesu del ficheru.

2: La función FileAttr devuelve'l númberu d'accesu de ficheru del sistema operativu.

Si especifica un atributu de parámetru con un valor de 1, aplíquense los valores de torna siguientes:

1 - INPUT (ficheru abiertu pa entrada)

2 - OUTPUT (ficheru abiertu pa salida)

4 - RANDOM (ficheru abiertu p'accesu aleatoriu)

8 - APPEND (ficheru abiertu pa adjunción)

32 - BINARY (ficheru abiertu en mou binariu).

Error codes:

5 Llamada a procedimientu non válida

52 Nome de ficheru o númberu incorrectos

Exemplu:


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 #iNúmberu, "Esta ye una llinia de testu"
    MsgBox FileAttr(#iNúmberu, 1 ),0,"Mou d'accesu"
    MsgBox FileAttr(#iNúmberu, 2 ),0,"Atributu de ficheru"
    Close #iNumber
End Sub

Please support us!