Discussion :

[ghostvb]

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

[ced600]

si c possible, et pour cela tu vas faire du VBA dans du VBS.

Recherche sur le forum VBS, VBA, le sujet a déjà été traité plein de fois, et il y a les éléments de réponses.

[ghostvb]

Merci,

Je continue les recherches.