Bonsoir à tous,

Je suis à la recherche un script en vbs qui pourrait faire une liste des dossiers et des sous dossier d'un dossier particulier.

Je m'explique : j'ai ce dossier "D:\mes documents\mes documents\script" et je veux savoir ce qu'il y a dedans.

Pour ca j'ai commencé a faire
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
26
27
28
29
30
31
32
33
34
 
Const outFile = "file.html"
path = "D:\mes documents\mes documents\script"
 
Dim oFilesys
Set oFilesys = CreateObject("Scripting.FileSystemObject")
Set oFiletxt = oFilesys.CreateTextFile(outFile, True)
 
'Get script path
 
oFiletxt.WriteLine( "<html> <body>")
oFiletxt.WriteLine( path & "<br/>")
oFiletxt.WriteLine(List(path))
oFiletxt.WriteLine("</body></hmtl>")
oFiletxt.Close
 
Wscript.echo " End of script."
 
Function List(directory)
	Set fsoFolder = CreateObject("Scripting.FileSystemObject")
	Set folder = fsoFolder.GetFolder(directory)
	Set subfolders = folder.SubFolders
	Set subfiles = folder.Files
 
	for each objFolder in subfolders
		oFiletxt.WriteLine(" |+ " & objFolder.Name & "<br/>")
	next	
 
 
	for each objFile in subfiles
		oFiletxt.WriteLine(" <dd>|- " & objFile.Name & "<br/>")
	next
 
End Function
sauf qu'une fois que j'ai lu un sous dossier, j'obtiens ce ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
D:\mes documents\mes documents\script
|+ Nouveau dossier
    |- Copie de liste_trsf.vbs
    |- file.html
    |- liste_dossier.vbs
    |- liste_docu.vbs
    |- file.docx
sauf que je devrais avoir une chose du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
D:\mes documents\mes documents\script
|+ Nouveau dossier
    |- Copie de liste_trsf.vbs
|- file.html
|- liste_dossier.vbs
|- liste_docu.vbs
|- file.docx
je pense que je me suis planté sur l'affichage et dans mes conditions de boucles, je ne suis pas un spécialiste :s

Merci à tous,
doc'