I think you can use something like this:

Sub GetFolderSize()

strFolder = "C:\SomeFolder\"

Set fso = CreateObject _
("Scripting.FileSystemObject")

Set folder = _
fso.GetFolder(strFolder)

i = 1

For Each sf In folder.SubFolders
Sheets(1).Cells(i, 1) = sf.Name
'folder size in bytes
Sheets(1).Cells(i, 2) = sf.Size
i = i + 1
Next

End Sub


Hope that helps.

--
urkec


"sal21" wrote:

I have a dir on a server similar:

\\gcd01f4500\public\user\

in this dir are presents many other dirs

is possible to know for each dir in the dir USER the dimension of
space used for each dir and store the value of space used in a column
of Excel sheet?

Note:
more dir in USER are are loked but i dont want to navigate in this dir
but only to know the dimension of space used for each dir...
possible?
Tks.