Taille de répertoires

Version imprimable

Bonjour,

Un script basique qui me donne une erreur sur les tailles de repertoires.Sur le repertoire D:\Data de mon serveur,j'ai 5 sous-repertoires (projets,services,soft,temp,users) et je veux récuperer la taille de ces 5 dossiers
Code:

1 2 3 4 5 6 Set FSO = CreateObject("Scripting.FileSystemObject") Set objFolder = FSO.GetFolder("D:\Data") Set colSubfolders = objFolder.SubFolders For Each objSubfolder in colSubfolders WScript.Echo objSubfolder.Name & " " & Folder_Size Next
Le probleme est que la taille renvoyée pour le 2eme dossier (services) est toujoursla même que celle du 1er (projets). Les autres valeurs sont correctes... Une erreur dans le script ???
Merci de vos avis éclairés.
Philippe

09/01/2007, 14h56
omen999

bonjour,

Code:

WScript.Echo objSubfolder.Name & " " & objSubfolder.Size
09/01/2007, 15h18
pberanger

Taille des répertoires

Merci, j'ai fait la modif, mais le second repertoire n'est plus affiché.!

Code:

WScript.Echo objSubfolder.Name & " " & objSubfolder.Size

j'ai le premier, et ca passe au 3eme dossier!!

Si je fais

Code:

WScript.Echo objSubfolder.Name

j'ai bien le nom des 5 repertoires qui s'affichent

Peut-etre un pb sur mon disque,j'ai essayé sur un autre dossier racine et ca fonctionne!!!
Merci
06/12/2012, 20h08
Super_Didji

taille répertoire en VBS

J'ai eu le même problème ; cela provient d'un ou plusieurs fichiers dans le répertoire ou un sous répertoire sur lequel vous n'avez pas de droits d'accès. Dans ce cas, la fonction ne retourne pas de code erreur mais ne renvoie rien dans Size.
En revanche, je ne sais pas comment faire. IL semble que cela ne soit pas possible avec fso. Si vous avez une idée je suis preneur.