Discussion :

[linda15975]

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...

[AlainTech]

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

Ceci est hérité de MSDOS.

[Actarus69]

sinon tu peux utiliser le FileSystemObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[linda15975]

merci beaucoup pour votre aide!!!