[AccessD] Dir Size Routine

Anybody got a routine to walk the dir tree from a spefied location and
report the accumulated size of all files in the given dir (+subdir), at
each level?

I.e. 

? DirSize( "d:\docs" )

d:\docs	1gb
d:\docs\a	.3gb
d:\docs\b	.5gb
d:\docs\b\1	.2gb

TIA,
Arthur