FileAttr Function

Devolve o modo de acceso ou o número de acceso do ficheiro aberto coa instrución Open. O número de acceso do ficheiro depende do sistema operativo (OSH = Operating System Handle).

Icona Nota

Se usa un sistema operativo de 32 bits, non pode usar a función FileAttr para determinar o número de acceso do ficheiro.


See also: Open

Sintaxe:

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

Valor de retorno:

Enteiro

Parámetros:

FileNumber: The number of the file that was opened with the Open statement.

Attribute: Integer expression that indicates the type of file information that you want to return. The following values are possible:

1: A función FileAttr indica o modo de acceso do ficheiro.

2: A función FileAttr devolve o número de acceso do ficheiro do sistema operativo.

Se especifica un atributo de parámetro co valor 1, aplícanse os seguintes valores de retorno:

1 - INPUT (ficheiro aberto para entrada)

2 - OUTPUT (ficheiro aberto para saída)

4 - RANDOM (ficheiro aberto para acceso aleatorio)

8 - APPEND (ficheiro aberto para anexionar)

32 - BINARY (ficheiro aberto en modo binario).

Códigos de erro

5 Chamada de procedemento incorrecta

52 Erro no nome ou número do ficheiro

Exemplo:

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, "This is a line of text"

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

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

    Close #iNumber

End Sub