| Вопрос: Работа с файлами | Добавлено: 19.09.05 02:50 |
Автор вопроса:  Mag | ICQ: 289414238 |
| Помогите ПЛЗ. как узнать какие папки содержит текушая папка??? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #1 | Добавлено: 19.09.05 04:23 |
|
Dir[
 pathname[, attributes] ]The attributesargument settings are: vbDirectory
16 Specifies directories or folders in addition to files with no attributes |
||
|
Номер ответа: 2 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #2 | Добавлено: 19.09.05 09:24 |
|
Или так.
Private Sub FindFolderInPath(strFolder As String) On Error Resume Next Dim fso As New FileSystemObject Dim fFolder As Folder Dim SubFolder, SubFolder1 Set fFolder = fso.GetFolder(strFolder) Set SubFolder = fFolder.SubFolders For Each SubFolder1 In SubFolder ReDim Preserve PathForTree(i) PathForTree(i) = SubFolder1.Path i = i + 1 Call FindFolderInPath(SubFolder1.Path) Next End Sub |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 19.09.05 10:27 |
| 2Андрей, какую жуткую рекурсию ты публикуешь. На каждую подпапку создавать объект... | ||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 19.09.05 10:56 |
| Ха, точно. Только щас заметил. Спасибо LOL. Не проверял,каюсь. | ||
|
Номер ответа: 5 Автор ответа: Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #5 | Добавлено: 19.09.05 22:08 |
|
2 Андрей:
Да ну, исп-ть еще и MS Scripting Runtime только для списка папок... Библа полезная, но что, мало стандартных VB-шных ф-ций. Я всегда делал через Dir(), можно и через контрол DirListBox |
||
|
Номер ответа: 6 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #6 | Добавлено: 19.09.05 22:59 |
| Ну я ж покаялся. Признаю, вспылил. | ||
|
Номер ответа: 7 Автор ответа: Mag ICQ: 289414238 Вопросов: 30 Ответов: 27 |
Профиль | | #7 | Добавлено: 20.09.05 03:14 |
| спасибо всем | ||
|
Номер ответа: 8 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #8 | Добавлено: 20.09.05 10:48 |
|
Да ну, исп-ть еще и MS Scripting Runtime только для списка папок Иногда проще создать один объект чем писать несколько страниц неотлаженного кода. Тем более что библа эта стандартная. Зачем дублировать то, что уже было написано? Увеличить размер программы можно и другими способами 
|
||
|
Номер ответа: 9 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #9 | Добавлено: 20.09.05 11:54 |
| Все таки проверив этот код, он меня не устроил по причине своей тормознутости при большом количестве подпапок. Гораздо быстрее работают API. | ||
Страница: 1 |