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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...