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 )
Oargumento de nome de caminho necessário é um 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 seguinte expressão E será zero se o atributo Archive não estiver definido:
Result = GetAttr(FName) And vbArchive
Um valor não zero será retornado se o atributo Archive 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.
