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 Número Inteiro que representa os atributos de um ficheiro, diretório ou pasta.
Sintaxe
GetAttr(pathname)
O argumento pathnamenecessário é uma expressão de cadeia que especifica um nome de ficheiro. O pathname pode incluir o diretório ou pasta e a unidade.
Valores Devolvidos
O valor devolvido 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 de 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 utilizados em qualquer parte do seu código em vez 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 que atributos estão definidos, utilize o operador And para efetuar uma comparação bit a bit do valor devolvido pela função GetAttr e o valor do atributo de ficheiro individual que pretende. Se o resultado não for zero, esse atributo é definido para o ficheiro com nome. Por exemplo, o valor devolvido da seguinte expressão And é zero se o atributo Arquivo não estiver definido:
Result = GetAttr(FName) And vbArchive
É devolvido um valor diferente de zero se o atributo Arquivo estiver definido.
Exemplo
Este exemplo utiliza a função GetAttr para determinar os atributos de um ficheiro, diretório ou pasta. No Macintosh, só estão disponíveis as constantes vbNormal, vbReadOnly, vbHidden e vbAlias.
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.