Função FileAttr
Devolve um Modo longo que representa o modo de ficheiro para ficheiros abertos com a instrução Abrir .
Sintaxe
FileAttr(filenumber, returntype)
A sintaxe da função FileAttr tem estes argumentos nomeados:
| Sair | Descrição |
|---|---|
| númerodoarquivo | Obrigatório; Inteiro. Qualquer número de arquivo válido. |
| tipo de retorno | Obrigatório; 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 de retorno
Quando o argumentoreturntype é 1, os seguintes valores devolvidos indicam o modo de acesso ao ficheiro:
| Modo | Valor |
|---|---|
| Entrada | 1 |
| Output | 2 |
| Aleatório | 4 |
| Append | 8 |
| Binária | 32 |
Exemplo
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.
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.