| Вопрос: Дирректории и под-под-под дирректории | Добавлено: 21.06.06 12:57 |
Автор вопроса:  psinetron | ICQ: 218945948 |
|
Здравсвуйте. Помогите с алгоритмом - мне нужно занести в ListBox пути ко всем текстовым файлам из дирректории, в которой тоже есть дирректории, и в которых тоже есть дирректории (До 5 уровней). На каждом уровне есть файлы с расширением txt и с другими расширениями. Но нужно только тхт
В листбокс записываются полный путь и имя файла. Если можно, то хорошо бы это зделать без использования компонентов dirlistbox и filelistbox, хотя приветствуются все варианты |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #1 | Добавлено: 21.06.06 13:18 |
| Рекурсивный перебор. | ||
|
Номер ответа: 2 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #2 | Добавлено: 21.06.06 15:21 |
|
Рекурсивный перебор Подроднее:
Sub EnumFilesFromDir(basedir as string) 1. перечисляем все .txt-файлы из BaseDir (поможет фнкция Dir) Заносим их в список. 2. Перечисляем все поддиректории в BaseDir (опять же фця Dir), заносим их в массив. 3. Для всех эелементов массива вызываем EnumFilesFromDir(BaseDir + "\" + элемент массива) End Sub Вот и все дела. А в массив нужно заносить, так как если попытаться для очередного вызова Dir вызвать EnumFilesFromDir, то Dir сбросится и возникнут проблемы с получением следующей директории. |
||
|
Номер ответа: 3 Автор ответа:  НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #3 | Добавлено: 21.06.06 16:58 |
|
+ еще подробнее:
http://www.vbnet.ru/faq/showtopic.asp?id=36 |
||
|
Номер ответа: 4 Автор ответа: CalhoonICQ: 789764 Вопросов: 90 Ответов: 230 |
Web-сайт: Профиль | | #4 | Добавлено: 22.06.06 18:23 |
|
Немного доработанный чей-то модуль...
http://TrueRezult.nm.ru/VB/modScaning.rar |
||
Страница: 1 |