[VBA-E] Liste des répertoires

Bonjour,

je travaille sur Excel 2000 et je veux faire la liste des répertoires d'un disque et la mettre dans une listbox. Tout marche parfaitement à part que deux intrus se retrouve dans ma liste: "." et "..", alors que je n'ai que des répertoires avec des mots.

Est-ce que quelqu'un peut me dire à quoi ils correspondent?

A tout hasard, je vous met mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

stRep = Dir(CurDir, vbDirectory) ListBox1.Clear Do While stRep <> "" If (GetAttr("q:\" & stRep) And vbDirectory) = 16 Then ListBox1.AddItem stRep stRep = Dir Else stRep = Dir End If Loop

---

Merci d'avance pour votre aide...

. et .. représentent, respectivement, le dossier courant et le dossier parent.

Ceci est hérité de MSDOS.

sinon tu peux utiliser le FileSystemObject

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set fs = CreateObject("Scripting.FileSystemObject") set Monrep = fs.getfolder(PathduRep) Set ListeSousRep = Monrep.subfolders For each rep in ListeSousRep ListBox1.AddItem rep.name Next   'Pour être propre Set ListeSousRep = nothing Set Monrep = nothing Set fs= nothing

---

:wink:

merci beaucoup pour votre aide!!!