Observação
A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Inteiro que representa os atributos de um arquivo, diretório ou pasta.
Sintaxe
GetAttr(pathname)
O argumento pathnamenecessá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 retornados
O valor retornado pelo GetAttr é a soma dos seguintes valores de atributo:
| Constante | Valor | Descrição |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Somente leitura. |
| vbHidden | 2 | Escondidos. |
| vbSystem | 4 | Arquivo do sistema. Não está disponível no Macintosh. |
| vbDirectory | 16 | Diretório ou pasta. |
| vbArchive | 32 | O arquivo foi alterado desde o último backup. Não está disponível no Macintosh. |
| vbAlias | 64 | O nome do arquivo especificado é um alias. Disponível apenas no Macintosh. |
Observação
Essas constantes são especificadas por Visual Basic for Applications. Os nomes podem ser usados em qualquer lugar do código no lugar dos valores reais.
Comentários
Observação
Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira 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 será definido para o arquivo nomeado. Por exemplo, o valor retornado da expressão E a seguir será zero se o atributo Arquivo não estiver definido:
Result = GetAttr(FName) And vbArchive
Um valor não zero será retornado se o atributo Arquivo for 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.