Bonjour,

je cherche à créer un vbs pour liste tous les dossiers d'un répertoire et avoir ainsi la taille de ces dossiers.

Par exemple, avoir la liste des dossiers de C:\Program Files ansi que leurs tailles.
Ce qui me donnerait quelque chose comme :
C:\Program Files : 976 Mb
C:\Program Files\Adobe : 227 Mb
C:\Program Files\Internet Explorer : 4.44Mb

J'ai déjà avancé grâce au tutoriel de Warin et mon ami Google mais par contre (et c'est là que je me rends compte que je devrais vraiment me mettre à apprendre VB/VBS) c'est un soucis pour parcourir récursivement les dossiers et ajouter la taille des fichiers.

Un coup de main serait le bienvenu.

Je vous mets ce que j'ai déjà (n'hésitez pas à proposer vos améliorations :p) :
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
 
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Call ListFolderContents("C:\Program Files")
Set fso = Nothing
 
Sub ListFolderContents(path)
set folder = fso.GetFolder(path)
wscript.echo folder.path
 
For each item in folder.SubFolders
ListFolderContents(item.Path)
Next
set folder = Nothing
End Sub
Merci d'avance pour votre aide