Diskspace by directory 1

[TheLad]

Guys

I am trying to establish if I can get diskspace results by directory using a script. I have tried looking in Scriptomatic but I cannot find what I am looking for.

Basically, I would like a script that I can give a base directory to (eg. E:\Users) and that script will examine the sub-directories underneath the base directory and give me the diskspace used by each individual immediate subdirectories and their contents eg. E:\Users\User1 = 1Mb, E:\Users\User2 = 2Mb etc...)

Please can anyone point me in the right direction?

--------------------------------------
"Insert funny comment in here!"
--------------------------------------

 

[guitarzan]

Using the FileSystemObject...

dim fso, fldr, subfldr, sFolderToCheck
sFolderToCheck = "E:\Users"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(sFolderToCheck)
For Each subfldr in fldr.Subfolders
	wscript.echo "size of " & subfldr.name & " is " & subfldr.size & " bytes."
Next
wscript.echo "the whole root folder (" & sFolderToCheck  & ") is " & fldr.size & " bytes."

 

[TheLad]

Great script, thanks for your reply (have a star!)



--------------------------------------
"Insert funny comment in here!"
--------------------------------------