Função FileAttr

Observação:  Desejamos fornecer o conteúdo da Ajuda mais recente no seu idioma da forma mais rápida possível. Esta página foi traduzida de forma automatizada e pode conter imprecisões ou erros gramaticais. Nosso objetivo é que este conteúdo seja útil para você. As informações foram úteis? Dê sua opinião no final desta página. Aqui está o artigo em inglês para facilitar a referência.

Observação: A função, método, objeto ou propriedade descrito neste tópico será desabilitada se o Microsoft Jet Expression Service está em execução no modo de área restrita, o que impede a avaliação das expressões possivelmente não seguras. Para obter mais informações sobre o modo seguro, procure por "modo seguro" na Ajuda.

Retorna um longo que representa o modo de arquivo para arquivos abertos usando a instrução Abrir .

Sintaxe

FileAttr ( filenumber , returntype )

A sintaxe da função FileAttr possui os seguintes argumentos:

Argumento

Descrição

filenumber

Necessário. Inteiro. Qualquer válido número do arquivo.

returntype

Necessário. Número inteiro. Número indicando o tipo de informação para retornar. Especifique 1 para retornar um valor que indica o modo de arquivo. Em sistemas de 16 bits só, especifique 2 para recuperar um identificador de arquivo do sistema operacional. returntype 2 não é suportado nos sistemas de 32 bits e causa um erro.

Retornar valores

Quando o returntypeargumento for 1, os seguintes valores de retorno indicam o modo de acesso de 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 Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função FileAttr para retornar o identificador de arquivo e o modo de arquivo de um arquivo aberto. O identificador de arquivo é retornado apenas em sistemas de 16 bits; em sistemas de 32 bits, passando 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.
Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×