Nota: A função, método, objeto ou propriedade descrita neste tópico está 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 inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.
Devolve um Long representando 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. |
|
tipo de retorno |
Obrigatório. Número inteiro. Número que indica o tipo de informação a devolver. Especifique 1 para devolver um valor que indica o modo de ficheiro. Apenas em sistemas de 16 bits, especifique 2 para obter um identificador de ficheiro do sistema operativo. O returntype 2 não é suportado em sistemas de 32 bits e causa um erro. |
Valores Devolvidos
Quando o tipo de retornoargumento é 1, os seguintes valores devolvidos indicam o modo de acesso ao ficheiro:
|
Moda |
Value |
|
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 alça de ficheiro de um ficheiro aberto. A alça de ficheiro é devolvida apenas em sistemas de 16 bits; em sistemas de 32 bits, transmitir 2 como 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.
