Comment lister un nombre inconnu de sous repertoires ?

Bonsoir,


Nouvelle question de débutant :

J' aimerais savoir comment lister le contenu d' un nombre inconnu de sous répertoires ?Une méthode ???J' ai lu dans la faq comment lister un répertoire mais plusieurs je sais pas faire !!!

ex d:\travail\Commandes\outils\petits outillages

lister le contenu de chaque répertoire.


Merci d' avance pour vos réponses.


Cordialement.

utilise une fonction récursive du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "d:\users" LectRep stRep   ' ' Fonction récursive de parcours de répertoire ' Sub LectRep (stR ) For each oFld in oFSO.GetFolder(stR).SubFolders Wscript.Echo "--------------- " & oFld.PAth & "-----------------" ListeFichier (oFld.PATH) LectRep oFld.PATH Next end sub ' ' Listing des fichiers du répertoire ' Sub ListeFichier (stR) For each oFl in oFSO.GetFolder(stR).Files Wscript.Echo oFl.Name Next End sub

---

Re,

Mille fois merci Bbil.:king:Je serais sur quel forum m' adresser dorénavant.

Bonne soirée.


A la prochaine question :D

@+++