Программа просмотра размера папок

[Avsha]

Всегда хотел иметь под рукой программу просмотра размера папок для указанного диска или папки.
Типа ходишь по дереву папок диска, а справа в виде таблицы и круговой диаграммы приводяться размеры всех папок, находящхся внутри указанной в дереве.
Для чистки диска удобно.
Может кто подскажет, как для указанной папки прочитать размеры всех папок, находящихся внутри?

[treider]

Что касается VBA то получить размер папки можно так

Код: Выделить всё

Sub GetFolderSize()
  Dim FS As FileSystemObject
  Dim MyFolder As Folder
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set MyFolder = FS.GetFolder(InputBox("Ïóòü ê ïàïêå"))
  MsgBox (MyFolder.Size)
End Sub

но я не думаю, что все так просто. Если снимать статистику при переходе между папками то компьютер будет подвисать.

[Avsha]

Спасибо, попробую использовать,

про FileSystemObject на хорошую ссылку наткнулся:
http://vfpkz.narod.ru/_0L401JSFF.htm

Готовой программы такого рода никто не встречал?

[VG]

http://www.win.tue.nl/sequoiaview/ - отличная программа визуального сравнения размеров папок с кучей настроек. Весь диск на одной странице.

[Avsha]

спасибо VG,
программа понравилась, нашел сразу море крупного мусора на своем ПК.
Только не нашел табличного представления размера папок в программе,
но может выйдет в будущих версиях функция типа экспорт данных о размерах папок в Excel... (???)