Nota
A função, método, objeto ou propriedade descrita neste tópico será desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Devolve um Long que representa o modo de ficheiro para ficheiros abertos com a instrução Open .
Sintaxe
FileAttr(filenumber,returntype)
A sintaxe da função FileAttr tem estes argumentos:
| Argumento | Descrição |
|---|---|
| número de ficheiro | Obrigatório. Número inteiro. Qualquer número de ficheiro válido. |
| ReturnType | Obrigatório. Número inteiro. Número que indica 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 um identificador de arquivo do sistema operacional. O ReturnType 2 não é suportado em sistemas de 32 bits e causa um erro. |
Valores Devolvidos
Quando o argumento returntypeé 1, os seguintes valores de retorno indicam o modo de acesso a arquivos:
| Modo | 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 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.