Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TreeView проблема 
:(
    Опции темы
DrNemo
Дата 28.1.2006, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 7.12.2005
Где: Не пейте ракетное топливо! :-)

Репутация: нет
Всего: 1
есть у меня некая папка "Е:\папка\", а в ней соответственно каталоги, так вот как мне зделать так, что бы они появились в TreeView? Зарание спасибо
--------------------
На свете есть только две вещи которые сносят башню - космос и женщины (К.Ю.Бунин)Самый мастдаевский сакс в том, что рулезные фичи глючат :))
PM MAIL WWW ICQ   Вверх
boevik
Дата 28.1.2006, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Написать функцию которая читает все подпапки в папке и вызывать эту функцию рекурсивно.
Все найденые папки записывать в дерево.

Реализация может быть различна. Начиная от использования dir и заканчивая API functions. Осталось только выбрать.

Это сообщение отредактировал(а) boevik - 28.1.2006, 22:16


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
DrNemo
Дата 28.1.2006, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 193
Регистрация: 7.12.2005
Где: Не пейте ракетное топливо! :-)

Репутация: нет
Всего: 1
А как сделать функцию которая читает все подпапки в папке используя dir? smile
Прошу прощения за глупый вопрос, но только недавно стал осваивать VB smile
--------------------
На свете есть только две вещи которые сносят башню - космос и женщины (К.Ю.Бунин)Самый мастдаевский сакс в том, что рулезные фичи глючат :))
PM MAIL WWW ICQ   Вверх
cardinal
Дата 28.1.2006, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(DrNemo @ 28.1.2006, 20:31 Найти цитируемый пост)

А как сделать функцию которая читает все подпапки в папке используя dir?

А почему именно Dir?

А вообще достаточно заглянуть в соседнюю тему про поиск файла
http://forum.vingrad.ru/index.php?showtopic=81362
и сюда (если интересует именно способ с Dir):
http://www.activevb.de/tipps/vb6tipps/tipp0364.html
или
http://www.activevb.de/tipps/vb6tipps/tipp0414.html



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
darkart
Дата 28.1.2006, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: нет
Всего: 31
Так наверное...
Код

Private Sub GetAllDirs(strPath As String)
'strPath-путь к папке, trvDirs-имя TreeView
  Dim strDir As String'для очередной папки
  strDir = Dir(strPath, vbDirectory)
  Do While strDir <> "" 'пока не пустое имя папки
    If (GetAttr(strPath & strDir) And vbDirectory) = vbDirectory Then trvDirs.Nodes.Add = strDir 'добавление папки
    strDir = Dir()'к следующему элементу
  Loop
End Sub
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0420 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.