to make a script that counts the subdir sizes (only selected exts) as well, try this:
Code:

$ = SetOption("WrapAtEOL","On")

$dir = 'C:\Documents and Settings\cameron.wilson\Desktop'
dim $paths, $pathSizes

for each $file in DirPlus($dir,"/s /f mp3 avi jpg gif")
  $path = left($file.path, instrrev($file.path,"\"))
  if -1 = ascan($paths,$path)
    redim preserve $paths[ubound($paths)+1]
    redim preserve $pathSizes[ubound($pathSizes)+1]
    $paths[ubound($paths)] = $path
  endif
  $pathSizes[ascan($paths,$path)] = $pathSizes[ascan($paths,$path)] + $file.size
Next

for $=0 to ubound($paths)
  $paths[$] " " $pathSizes[$] ?
next

"press any key to quit "
get $
_________________________
!

download KiXnet