Структура папки.

[Windo]

Добрый день!
Необходимо создать лист excel со структурой папок и файлов и ссылками на них.
Вручную перебивать очень долго.
Файл excel лежит в папке вместе с другими файлами проекта.
Хочу чтобы это были короткие ссылки только с названиями файлов и папок в древовидной структуре.

[RAN]

http://www.excelworld.ru/forum/3-1894-1

[Windo]

там выводит только список файлов, а мне нужна древовидная структура:
папка 1
      вложенная папка1
            файл 1
            файл 2
      вложенная папка2

ну и т.д.

[Prist]

Просмотреть все файлы в папке
Надо будет скачать файл, прилагаемый к статье - там код вывода имен всех папок и подпапок как раз в нужном виде.
Если убрать из кода строки:

Код Выделить Развернуть

'заносим полное имя файла в список файлов
ReDim Preserve vFolders(lCount)
vFolders(lCount) = sPath & objFile.Name
lCount = lCount + 1
и добавить затем код формирования гиперссылки(после занесения массива в ячейки) - то получите готовый код.