Discussion :

[pberanger]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pberanger]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Super_Didji]

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.