Observação: Desejamos fornecer o conteúdo da Ajuda mais recente no seu idioma da forma mais rápida possível. Esta página foi traduzida de forma automatizada e pode conter imprecisões ou erros gramaticais. Nosso objetivo é que este conteúdo seja útil para você. As informações foram úteis? Dê sua opinião no final desta página. Aqui está o artigo em inglês para facilitar a referência.
Observação: A função, método, objeto ou propriedade descrito neste tópico será desabilitada se o Microsoft Jet Expression Service está em execução no modo de área restrita, o que impede a avaliação das expressões possivelmente não seguras. Para obter mais informações sobre o modo seguro, procure por "modo seguro" na Ajuda.
Retorna um número inteiro que representa os atributos de um arquivo, diretório ou pasta.
Sintaxe
GetAttr ( caminho )
O caminhode necessárioargumento é 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.
Retornar valores
O valor retornado por GetAttr é a soma dos valores de atributo a seguir:
Constante | Valor | Descrição |
---|---|---|
vbNormal |
0 |
Normal. |
vbReadOnly |
1 |
Somente leitura. |
vbHidden |
2 |
Oculta. |
vbSystem |
4 |
Arquivo de sistema. Não disponível no Macintosh. |
vbDirectory |
16 |
Diretório ou pasta. |
vbArchive |
32 |
Arquivo foi alterado desde o último backup. Não disponível no Macintosh. |
vbAlias |
64 |
Nome de arquivo especificado é um alias. Disponível somente no Macintosh. |
Observação: Constantes são especificadas pelo Visual Basic for Applications. Os nomes podem ser usados em qualquer lugar no seu código no lugar dos valores reais.
Comentários
Observação: Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.
Para determinar quais atributos estão definidos, use o operador e realizar 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 está definido para o arquivo nomeado. Por exemplo, o valor de retorno da seguinte expressão e é zero se o atributo Archive não estiver definido:
Result = GetAttr(FName) And vbArchive
Um valor diferente de zero será retornado se o atributo de arquivamento está 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.