IBM Lotus Symphony
|
Retorna o modo de acesso ou o número de acesso do arquivo de um arquivo que foi aberto com a instrução Open. O número de acesso do arquivo é dependente do sistema operacional (OSH = Identificador de Sistema Operacional).
![]() |
Se você usar um sistema operacional de 32 bits, não poderá usar a Função FileAttr para determinar o número de acesso do arquivo. |
Consulte também: Open
FileAttr (FileNumber As Integer, Attribute As Integer)
Inteiro
FileNumber: O número do arquivo que foi aberto com a instrução Open.
Attribute: Expressão de números inteiros que indica o tipo de informações do arquivo que você deseja retornar. Os seguintes valores são possíveis:
1: A Função FileAttr indica o modo de acesso do arquivo.
2: A Função FileAttr retorna o número de acesso do arquivo do sistema operacional.
Se você especificar um atributo de parâmetro com um valor 1, os seguintes valores de retorna se aplicarão:
1 - INPUT (arquivo aberto para entrada)
2 - OUTPUT (arquivo aberto para saída)
4 - RANDOM (arquivo aberto para acesso aleatório)
8 - APPEND (arquivo aberto para inclusão)
32 - BINARY (arquivo aberto em modo binário).
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(#iNumber, 1 ),0,"Modo de acesso"
MsgBox FileAttr(#iNumber, 2 ),0,"Atributo de arquivo"
Fechar #iNumber
End Sub