Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Long que representa o modo de arquivo para arquivos abertos usando a instrução Open .
Sintaxe
FileAttr ( filenumber , returntype )
A sintaxe da função FileAttr tem esses argumentos:
|
Argumento |
Descrição |
|
número de arquivos |
Obrigatório. Inteiro. Qualquer número do arquivo válido . |
|
Returntype |
Obrigatório. Inteiro. Número que indica o tipo de informação a ser retornada. Especifique 1 para retornar um valor que indica o modo de arquivo. Somente em sistemas de 16 bits, especifique 2 para recuperar um identificador de arquivo do sistema operacional. O returntype 2 não tem suporte em sistemas de 32 bits e causa um erro. |
Valores retornados
Quando o tipo de retornoargumento for 1, os seguintes valores retornados indicam o modo de acesso ao arquivo:
|
Modo |
Valor |
|
Entrada |
1 |
|
Saída |
2 |
|
Aleatório |
4 |
|
Acréscimo |
8 |
|
Binário |
32 |
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função FileAttr para retornar o modo de arquivo e o identificador de arquivo de um arquivo aberto. O identificador de arquivo é retornado apenas em sistemas de 16 bits; em sistemas de 32 bits, passar 2 como um segundo argumento gera um erro.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
