Observação: A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área de segurança, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo de área de segurança, pesquise por "modo de área de segurança" na Ajuda.
Retorna um Integer que representa os atributos de um arquivo, diretório ou pasta.
Sintaxe
GetAttr ( pathname )
O nome de caminho 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.
Valores de retorno
O valor retornado por GetAttr é a soma dos seguintes valores de atributo:
Constante |
Valor |
Descrição |
vbNormal |
0 |
Normal. |
vbReadOnly |
1 |
Somente leitura. |
vbHidden |
2 |
Oculto. |
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 somente 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 Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na listada 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 que você deseja. Se o resultado não for zero, esse atributo será definido para o arquivo nomeado. Por exemplo, o valor de retorno do seguinte E expressão será zero se o atributo Archive não estiver definido:
Result = GetAttr(FName) And vbArchive
Um valor não zero é retornado se o atributo Archive 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.