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 nome do caminho necessárioargumento é um 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 pelo 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 executar 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.