Função FileAttr

Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" em Ajuda.

Devolve um Long representando o modo de ficheiro para ficheiros abertos utilizando a declaração Open.

Sintaxe

FileAttr (número de ficheiros, devolução)

A sintaxe da função FileAttr tem estes argumentos:

Argumento

Descrição

número de arquivo

Obrigatório. Inteiro inteiro. Qualquer número de ficheiro válido.

tipo de retorno

Obrigatório. Inteiro. Número indicando o tipo de informação a devolver. Especifique 1 para devolver um valor que indique o modo de ficheiro. Apenas em sistemas de 16 bits, especifique 2 para recuperar uma pega de ficheiro do sistema operativo. o retornado 2 não é suportado em sistemas de 32 bits e causa um erro.

Valores Devolvidos

Quando o argumento do tipo de retorno é 1, os seguintes valores de retorno indicam o modo de acesso ao ficheiro:

Moda

Valor

Entrada

1

Resultado

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 como 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 o modo de ficheiro e a pega de ficheiro de um ficheiro aberto. A pega do ficheiro é devolvida 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.

Precisa de mais ajuda?

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider