Função GetAttr

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

Sintaxe

GetAttr(pathname)

O argumentopathname necessário é uma expressão de cadeia que especifica um nome de ficheiro. O pathname pode incluir o diretório ou pasta e a unidade.

Valores de retorno

O valor devolvido por GetAttr é a soma dos seguintes valores de atributo:

Comentários

Para determinar que atributos estão definidos, utilize o operador And para efetuar 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.

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.