Description du répertoire
Renvoie le premier nom de fichier qui correspond au chemin d'accès et aux attributs spécifiés.
Exemples de répertoires simples
| 1 | MsgBox Dir("") |
Cela renverra le premier nom de fichier sur le chemin actuel.
Syntaxe Dir
Dans l'éditeur VBA, vous pouvez taper "Dir(" pour voir la syntaxe de la fonction Dir :
La fonction Dir contient 2 arguments :
Nom du chemin : [Facultatif] Une expression de chaîne représentant un répertoire/dossier/lecteur.
Attribut: [Facultatif] Spécifie les attributs de fichier. S'il est omis, renvoie les fichiers qui correspondent au chemin d'accès mais n'ont pas d'attributs.
Les Attribut les paramètres des arguments sont :
| Constant | Valeur | La description |
|---|---|---|
| vbNormal | 0 | (Par défaut) Spécifie les fichiers sans attributs. |
| vbLecture seule | 1 | Spécifie les fichiers en lecture seule en plus des fichiers sans attributs. |
| vbMasqué | 2 | Spécifie les fichiers cachés en plus des fichiers sans attributs. |
| vbSystème | 4 | Spécifie les fichiers système en plus des fichiers sans attributs. Non disponible sur Macintosh. |
| vbVolume | 8 | Spécifie le nom de volume; si un autre attribut est spécifié,vbVolume est ignoré. Non disponible sur Macintosh. |
| vbRépertoire | 16 | Spécifie des répertoires ou des dossiers en plus des fichiers sans attributs. |
| vbAlias | 64 | Le nom de fichier spécifié est un alias. Disponible uniquement sur Macintosh. |
Programmation VBA | Le générateur de code fonctionne pour vous !
Exemples de fonction Excel VBA Dir
Pour répertorier les dossiers et fichiers sur le lecteur C, vous pouvez utiliser le code suivant.
| 123456789101112131415161718192021222324 | Sous-répertoire_Exemple()Dim fileName As StringDim fullName en tant que chaîneDim rng As RangeDiminuer en tant qu'entierDéfinir rng = Range("A1")fileName = Dir("C:\", vbDirectory)je = 1FairefullName = "C:\" & fileNamerng.Offset(i, 0) = nom de fichierrng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)fileName = DirSi fileName = "" Alors Quitter Doje = je + 1BoucleFin du sous-marin |
Le résultat sera similaire à ce qui suit.
Fonction VBA Dir dans Access VBA
La fonction VBA Dir fonctionne dans Access VBA de la même manière que dans Excel VBA.
| 123456789 | Fonction CreateDirectory (strP As String) As BooleanSi Len(Dir(strP, vbDirectory)) = 0 AlorsMkDir strPFin siCréerRépertoire = VraiFonction de sortiefin:CréerRépertoire = FauxFonction de fin |
