Дерево каталогов из Shell32.dll

[Warn]

Здравствуйте! Мне нужно заполнить Treeview, как в проводнике. На форумах не по VB я прочитал, что это можно сделать либо вручную, либо через Shell32.dll. Как это сделать через Shell32?

[Alexanbar]

Нужно подключить shell32.dll как ссылку. Там есть несколько объектов. Можно также, наверное вызвать и окно Проводника.

[Warn]

Нет, я не это имел ввиду. У меня есть на форме контрол Treeview, и мне нужно заполнить его, как в проводнике винды. А вызвать окно проводника можно и WinExec'ом, и шеллом, и чертом в ступе.
Тут копал инет-ведро с инфой-наткнулся на такую цитату:

дерево надо строить начиная не с файлов, а с рабочего стола, IShellFolder к которому получаешь через SHGetDesktopFolder, из IShellFolder можно получить (используя IShellFolder::GetUIObjectOf) IExtractIcon который, путь к исконке и саму иконку. А также из IShellFolder'а перечисляешь всех потомков от Desktop'а. Очень удобно и быстро стоиться дерево (сохраняй указатели на IShellFolder в ItemData), методы позволяют узнать есть ли у папки подпапки и ты можешь добавить в дерево временные подэлементы, кажем с названием '*'( чтобы были "плюсики" у папок), когда юзер щелкает на папку ты проверяешь подэлемент если он '*', то удаляешь временный подэлемент и заполнаяешь потомков, иначе потомки уже заполнены.


P.S. кстати узнать РЕАЛЬНЫЕ путьи к папкам типа MyDocuments, Desktop и подобным можно использовать
SHGetFolderPath
SHGetSpecialFolderLocation
SHGetSpecialFolderPath

Вот только написано это на таком кривом языке, что я в объяснение въехать не могу. Помогите, пожалуйста, заюзать вызовы из цитаты.
Да, форум был по С++

[Alexanbar]

Для Листвья:

Public ff As Shell32.Folder
Private ws As New Shell32.Shell

...

Dim f As Shell32.FolderItem
dim Litem as listitem

'это для корзины
Set ff = ws.NameSpace(ssfBITBUCKET)



For Each f In ff.Items

Set Litem = ListView1.Listitems.Add

Litem.Text = f.Name

next

[Warn]

Спасибо за код, разбираюсь.

[Naked]

разбирайся http://btmtz.mvps.org/vbexplorer/vbexplorer.zip