Lister uniquement les sous-répertoires dans une listbox

[Besnard68]

Bonsoir le Forum,

Je souhaiterais incrémenter une ListBox des seuls sous-répertoires d'un répertoire préalablement défini.

Je teste actuellement la outine suivante, mais elle me donne la liste de tout les fichiers et non des sous-répertoires.

Sub Test()

Dim Rep

UserForm5.ListBox1.Clear

TheDirectory = Sheets("Feuil1").Range("A1").Value
Rep = Dir(TheDirectory)

Do While Rep <> ""
UserForm5.ListBox1.AddItem Rep
Rep = Dir
Loop

Exit Sub


Existe t'il dans VBA une instruction identique à 'Dir' qui ne sélectionnerait que ces fameux sous-répertoires ?

J'ai testé la fonction CreateObject... mais avec son utilisation il apparait deux boutons, 'Créer un nouveau répertoire' et 'Supprimer' , que je ne veux surtout pas pour pour éviter des erreurs potentiellement dramatiques.


Je vous remercie par avance pour votre éclairage.

 

[tototiti2008]

Re : Lister uniquement les sous-répertoires dans une listbox

Bonjour besnard,

tu devrais essayer :
Rep = Dir(TheDirectory, vbDirectory)
Malheureusement, ce n'est pas parfait, les fichiers sans attributs apparaîssent aussi, mais c'est un début.

 

[BOISGONTIER]

Re : Lister uniquement les sous-répertoires dans une listbox

Bonjour,

Private Sub UserForm_Initialize()
   Racine = CurDir                    ' Répertoire courant
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set Dossier = fs.getfolder(Racine)
   For Each d In Dossier.SubFolders
     Me.ListBox1.AddItem d.Name
   Next
End Sub

JB

 

[Besnard68]

Re : Lister uniquement les sous-répertoires dans une listbox

😛

Je suis bluffé par votre rapidité et vos compétences ! Profil bas messieurs.

JB, c'est exactement ce que je voulais. J'avais un peu virevolté autour de l'instruction GetFolders, mais je n'arrivais pas du tout à composer avec sa syntaxe ; J'en étais arrivé à penser qu'elle n'était reconnue que par Visual Basic et non VBA.

Merci beaucoup pour votre aide, ça fait chaud au coeur.

Bonne soirée à vous.