Função FileAttr

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve um valor longo que representa o modo de ficheiro para os ficheiros abertos utilizando a instrução Open .

Sintaxe

FileAttr ( númeroficheiro , tiporetorno )

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

Argumento

Descrição

númeroficheiro

Obrigatório. Número inteiro. Qualquer número de ficheiro válida.

tiporetorno

Obrigatório. Número inteiro. Número que indica o tipo de informação para devolver. Especifique 1 para devolver um valor que indica o modo de ficheiro. Nos sistemas de 16 bits só, especifique 2 para obter um identificador de ficheiro do sistema operativo. tiporetorno 2 não é suportada nos sistemas de 32 bits e provoca um erro.

Valores Devolvidos

Quando o tiporetornoargumento for 1, os seguintes valores devolvidos indicam o modo de acesso de ficheiro:

Mode

Valor

Introdução

1

Saída

2

Aleatório

4

Acréscimo

8

Binário

32

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função FileAttr para devolver a modo e ficheiro alça de preenchimento de um ficheiro aberto. A alça de preenchimento é devolvida apenas em sistemas de 16 bits; nos sistemas de 32 bits, prisma 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.
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×