Função ObterAtributo

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve um número inteiro que representa os atributos de um ficheiro, diretório ou pasta.

Sintaxe

ObterAtributo nonome do caminhodo ()

O necessários nome do caminhoargumento é expressão de cadeia que especifica um nome de ficheiro. Pode incluir o nome do caminho do diretório ou pasta e a unidade.

Valores Devolvidos

O valor devolvido pela ObterAtributo é a soma dos valores de atributo seguintes:

Constante

Valor

Descrição

vbNormal

0

Normal.

vbReadOnly

1

Só de leitura.

vbHidden

2

Oculto.

vbSystem

4

Ficheiro do sistema. Não está disponível no Macintosh.

vbDirectory

16

Pasta ou diretório.

vbArchive

32

Ficheiro foi alterado desde a última cópia de segurança. Não está disponível no Macintosh.

vbAlias

64

Nome de ficheiro especificado é um alias. Apenas disponível em Macintosh.


Nota: Estes constantes são especificadas pela Visual Basic for Applications. Os nomes podem ser utilizados em qualquer lugar no seu código em vez dos valores reais.

Comentários

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 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 quais os atributos que são definidos, utilize o operador de e para efetuar uma comparação bit-a-bit do valor devolvido pela função ObterAtributo e o valor do atributo ficheiro individual que pretende. Se o resultado não for zero, esse atributo está definido para o ficheiro com nome. Por exemplo, o valor de retorno da expressão e seguinte é zero, se o atributo arquivo não estiver definido:

Result = GetAttr(FName) And vbArchive

Um valor diferente de zero é devolvido se o atributo arquivo estiver definido.

Exemplo

Este exemplo utiliza a função ObterAtributo para determinar os atributos de um ficheiro e diretório ou pasta. No Macintosh, apenas a 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.
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×