Discussion :

[liocifer]

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.

[SfJ5Rpw8]

utilise une fonction récursive du genre :

Code :

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

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

[liocifer]

Re,

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

Bonne soirée.


A la prochaine question

@+++