Função GetAttr

Artigo
08/25/2010

Retorna um valor FileAttribute representando os attributos de um arquivo, diretório ou pasta.

O recurso My dá a você maior produtividade e desempenho em operações de E/S de arquivos que FileAttribute.Para obter mais informações, consulte Objeto My.Computer.FileSystem.

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Parâmetros

PathName
Obrigatório.String expressão que especifica um nome de arquivo, diretório ou pasta. PathName pode incluir diretório ou pasta e unidade.

Valor de retorno

O valor retornado por GetAttr é a soma dos seguintes valores de enumeração:

Valor	Constante	Descrição
Normal	vbNormal	Normal.
ReadOnly	vbReadOnly	Somente leitura.
Hidden	vbHidden	Oculta
System	vbSystem	Arquivo de sistema.
Directory	vbDirectory	Diretório ou pasta.
Archive	vbArchive	O arquivo mudou desde o último backup.
Alias	vbAlias	Arquivo possui um nome diferente.

Observação:
Essa enumerações são especificadas pela linguagem Visual Basic.Os nomes podem ser usados em qualquer lugar dentro do código no lugar nos valores reais.

Exceções

Tipo de exceção	Número de erro	Condição
IOException	52	Pathname é inválido ou contém curingas.
FileNotFoundException	53	Arquivo de destino não existe.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

Para determinar quais atributos estã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 deseja.Se o resultado não é zero, aquele atributo é definido pelo arquivo nomeado.Por exemplo, o valor retonado pela segunte expressão And é zero se o atributo Archive não está definido:

Result = GetAttr(FName) And vbArchive

Um valor diferente de zero é retornado se o atributo Archive é definido.

Exemplo

Este exemplo usa a função GetAttr para determinar os atributos de um arquivo e diretório ou pasta.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If