FileSearch

Bonjour Olivier,

Pour obtenir la liste de tous les sous-répertoires de premier niveau d'un répertoire :

'-----------------------
Sub ListeRépertoireDunRépertoire(Rep)
Dim FS, F, R, RS, A As Long
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFolder(Rep)
Set RS = F.SubFolders
For Each R In RS
A = A + 1
Range("A" & A) = R.Name
Next
End Sub
'-----------------------


Tu appelles la procédure de cette façon :
'-----------------------
Sub VoirLaListe()
ListeRépertoireDunRépertoire "c:excel"
End Sub
'-----------------------


Salutations!



"Olivier" <olivier.nicod@wanadoo.fr> a écrit dans le message de news:btkf15$mj8$1@news-reader5.wanadoo.fr...
Bonjour,

Quelqu'un sait-il comment trouver en VBA la liste des sous-repertoire ( et
non des sous-sous repertoires) en utilisant l'objet filesearch ?

Ou par une autre méthode ?

Set fs = Application.FileSearch
fs
.LookIn = "D:Mes Documents"
.SearchSubFolders = true
.FileName = "*." ' ne fonctionne pas
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
ComboBox1.AddItem NomRep(.FoundFiles(i))
Next i
Else
ComboBox2.AddItem ("Rien trouvé.")
End If
'End With


Merci

olivier