Dir, fonction

Article
09/12/2008

Mise à jour : novembre 2007

Retourne une chaîne représentant le nom d'un fichier, d'un répertoire ou d'un dossier qui correspond à un modèle ou un attribut de fichier spécifié ou à l'étiquette de volume d'un lecteur.

My.Computer.FileSystem, objet permet une meilleure productivité et de meilleures performances dans les opérations d'E/S sur fichier que la fonction Dir. Pour plus d'informations, consultez My.Computer.FileSystem.GetDirectoryInfo, méthode.

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

Paramètres

PathName
Facultatif. Expression String qui spécifie un nom de fichier, de répertoire ou de dossier ou un nom de volume de lecteur. Une chaîne de longueur nulle ("") est retournée si PathName est introuvable.
Attributes
Facultatif. Énumération ou expression numérique dont la valeur spécifie des attributs de fichier. Si cet argument est omis, Dir retourne les fichiers qui correspondent à PathName, mais qui n'ont pas d'attribut.

Paramètres

Les valeurs d'énumération de l'argument Attributes sont les suivantes :

Valeur	Constante	Description
Normal	vbnormal	Par défaut. Spécifie les fichiers sans attributs.
ReadOnly	vbReadOnly	Spécifie les fichiers en lecture seule en plus des fichiers sans attributs.
Hidden	vbHidden	Spécifie les fichiers masqués en plus des fichiers sans attributs.
System	vbSystem	Spécifie les fichiers système en plus des fichiers sans attributs.
Volume	vbVolume	Spécifie un nom de volume. Si aucun autre attribut n'est spécifié, vbVolume est ignoré.
Directory	vbDirectory	Spécifie les répertoires ou les dossiers en plus des fichiers sans attributs.
Archive	vbArchive	Fichier modifié depuis la dernière sauvegarde.
Alias	vbAlias	Le fichier a un nom différent.

Remarque :
Ces énumérations spécifiées par le langage Visual Basic peuvent remplacer les valeurs réelles partout dans votre code.

Notes

La fonction Dir prend en charge l'utilisation de caractères génériques à plusieurs caractères (*) et à un seul caractère (?) pour spécifier plusieurs fichiers.

VbVolume retourne le nom de volume pour le lecteur au lieu d'un nom de fichier spécifique.

Vous devez fournir un PathName la première fois que vous appelez la fonction Dir. Pour récupérer l'élément suivant, vous pouvez effectuer les appels suivants à la fonction Dir sans paramètres.

Note de sécurité :
Pour que la fonction Dir s'exécute correctement, les indicateurs Read et PathDiscovery de FileIOPermission doivent être accordés au code exécutant. Pour plus d'informations, consultez FileIOPermission, SecurityException et Autorisations d'accès du code.

Exemple

Cet exemple utilise la fonction Dir pour vérifier si certains fichiers et répertoires existent.

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