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
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
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 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
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
Merci à tous,
doc'
Partager