Função Dir

Artigo
08/25/2010

Retorna uma sequência de caracteres que representa o nome de um arquivo, diretório ou pasta que coincide com um padrão específico ou atributo de arquivo, ou o rótulo de volume de uma unidade.

Objeto My.Computer.FileSystem fornece maior produtividade e performance em operações em arquivo E/S se comparado à função Dir.Consulte Método My.Computer.FileSystem.GetDirectories para obter mais informações.

Public Overloads Function Dir() As String
' -or-
Public Overloads Function Dir( _
       ByVal PathName As String, _ 
       Optional ByVal Attributes As FileAttribute = FileAttribute.Normal _
) As String

Parâmetros

PathName
Opcional.String expressão que especifica um nome de arquivo, diretório ou nome da pasta ou rótulo de volume da unidade. Um sequência de caracteres de comprimento zero ("") é retornada se PathName não for encontrado.
Attributes
Opcional.Enumeração ou expressão numérica cujo valor especifica atributos de arquivo.Se omitido, Dir retorna arquivos que correspondam ao PathName mas sem atributos.

Configurações

Os valores de enumeração do argumento Attributes são da seguinte forma:

Valor	Constante	Descrição
Normal	vbnormal	Padrão.Especifica arquivos sem atributos.
ReadOnly	vbReadOnly	Especifica arquivos somente leitura, bem como arquivos sem atributos.
Hidden	vbHidden	Especifica arquivos ocultos, bem como arquivos sem atributos.
System	vbSystem	Especifica arquivos de sistema, bem como arquivos sem atributos.
Volume	vbVolume	Especifica volume de rótulo; se qualquer outro atributo for especificado, vbVolume será ignorada.
Directory	vbDirectory	Especifica diretórios ou pastas, bem como arquivos sem atributos.
Archive	vbArchive	O arquivo mudou desde o último backup.
Alias	vbAlias	Arquivo possui um nome diferente.

Observação:
Essas enumerações são especificadas pela linguagem Visual Basic e podem ser usadas em qualquer lugar em seu código no lugar dos valores reais.

Comentários

A função Dir oferece suporte ao uso de vários caracteres (*) e de caractere único curinga (?) para especificar vários arquivos.

VbVolume retorna o rótulo de volume para a unidade em vez de um nome de arquivo específico.

Você deve fornecer um PathName da primeira vez que você chamar a função Dir.Para recuperar o próximo item, você pode fazer chamadas subsequentes à função Dir sem nenhum parâmetro.

Observação de segurança:
Para executado corretamente , o Dir função requer o Read e PathDiscovery sinalizadores de FileIOPermission para receber o código em execução. Para obter mais informações, consulte FileIOPermission, SecurityException e Permissões de acesso a código .

Exemplo

Este exemplo usa a função Dir para verificar se existem determinados arquivos e diretórios.

Dim MyFile, MyPath, MyName As String
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")   

' Returns filename with specified extension. If more than one *.INI
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir()

' Return first *.TXT file, including files with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
         MsgBox(MyName)
      End If   
   MyName = Dir()   ' Get next entry.
Loop