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 Número Inteiro que representa os atributos de um ficheiro, diretório ou pasta.
Sintaxe
GetAttr(nomedocaminho)
O argumento de nome de caminhonecessário é uma expressão de cadeia de caracteres que especifica um nome de arquivo. O nome do caminho pode incluir o diretório ou pasta e a unidade.
Valores Devolvidos
O valor retornado por GetAttr é a soma dos seguintes valores de atributo:
| Constante | Valor | Descrição |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Só de leitura. |
| vbHidden | 2 | Oculto. |
| vbSystem | 4 | Ficheiro do sistema. Não está disponível no Macintosh. |
| vbDirectory | 16 | Diretório ou pasta. |
| vbArchive | 32 | O ficheiro foi alterado desde a última cópia de segurança. Não está disponível no Macintosh. |
| vbAlias | 64 | O nome de ficheiro especificado é um alias. Disponível apenas no Macintosh. |
Nota
Estas constantes são especificadas por Visual Basic for Applications. Os nomes podem ser usados em qualquer lugar do seu código no lugar dos valores reais.
Observações
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.
Para determinar quais atributos são definidos, use o operador And para executar uma comparação bit-a-bit do valor retornado pela função GetAttr e o valor do atributo de arquivo individual desejado. Se o resultado não for zero, esse atributo é definido para o ficheiro com nome. Por exemplo, o valor devolvido da expressão E seguinte é zero se o atributo Arquivo não estiver definido:
Result = GetAttr(FName) And vbArchive
Um valor diferente de zero é devolvido se o atributo Arquivo estiver definido.
Exemplo
Este exemplo usa a função GetAttr para determinar os atributos de um arquivo e diretório ou pasta. No Macintosh, apenas as constantes vbNormal, vbReadOnly, vbHidden e vbAlias estão disponíveis.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.