Bonjour, je suis totalement novice en programmation vbs et je souhaiterais faire la chose suivante
1) Sur un serveur de fichier prendre chaque dossier et avoir le volume, le nombre de sous-dossier et le nombre de fichier. Ca à priori ça fonctionne mais pour l'instant en sortie msgbox :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "\\Plume\data" Set oFld = oFSO.GetFolder(stRep) For each oFld in oFSO.GetFolder(stRep).SubFolders MsgBox "DateLastModified :" & oFld.DateLastModified & vbCrlf & _ "Path :" & oFld.Path & vbCrlf & _ "Size :" & oFld.Size & vbCrlf & _ "SubFolders.Count :" & oFld.SubFolders.count & vbCrlf & _ "Files.Count :" & oFld.Files.count Next
2) Récupérer les infos de ce script et les exporter pour en faire un tableau puis un graphique mais je ne sais pas s'il est possible de le faire sur Excel en pilotant depuis un script vbs ou s'il existe une autre manière ou si c'est impossible tout simplement. Le tout automatisé bien sûr.
Merci de m'éclairer![]()
Partager