Bonjour, j'ai une boucle qui liste les fichiers d'un répertoire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier"
 
If oFSO.FolderExists(stRep) Then
 
 For each oFl in  oFSO.GetFolder(stRep).Files
   vrFchs = vrFchs & vbCrLf & oFl.Name	
 Next
 
End If
 
 
Wscript.Echo vrFchs
J'ai deux questions:

1) Comment faire pour fouilller les sous répertoire ?

3) Comment afficher le chemin complet des fichiers ?