IBM Lotus Symphony


Função FileAttr [Tempo de Execução]

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

Ícone de Nota 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

Sintaxe:

FileAttr (FileNumber As Integer, Attribute As Integer)

Valores de Retorno:

Inteiro

Parâmetros:

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

Códigos de Erro

5 Chamada de procedimento inválida

52 Nome ou número de arquivo inválido

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(#iNumber, 1 ),0,"Modo de acesso"

MsgBox FileAttr(#iNumber, 2 ),0,"Atributo de arquivo"

Fechar #iNumber

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas