Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как получить список всех папок на диске C: Добавлено: 05.03.04 16:15  

Автор вопроса:  Tisak

Как получить список всех папок на диске C: , и занести их в ЛистБокс???

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 dNW



Вопросов: 30
Ответов: 683
  Профиль | Цитата | #1 Добавлено: 05.03.04 16:33

Попробуи создать невидимыи DirListBox. Установить ему путь "C:\" и все полученные элементы коллекций циклом добавить в ListBox   - Способ "в обход"

Ответить

Номер ответа: 2
Автор ответа:
 ZagZag



ICQ: 295002202 

Вопросов: 87
Ответов: 1684
  Профиль | Цитата | #2 Добавлено: 06.03.04 03:34

Есть даже поисковик на этих объектах (Drive, Folfer, Files) от VB6.0, кажется

Хотя я делал на FSO - все висит, но скорость...

Ответить

Номер ответа: 3
Автор ответа:
 Unguided



Вопросов: 7
Ответов: 19
  Профиль | Цитата | #3 Добавлено: 11.03.04 15:21

Сразу говорю, метод странный)))

Private Sub Form_Click()
Dim s_Dir As String
Dim i As Long
   
    s_Dir = Dir("C:\", vbDirectory)

    'заносим в листбокс и файлы и папки
    Do
        lstDir.AddItem s_Dir
        s_Dir = Dir()
    Loop Until s_Dir = ""


    s_Dir = Dir("C:\")

    'а теперь ищем файлы и удаляем их из листбокса
    Do
        For i = 0 To lstDir.ListCount - 1
            If lstDir.List(i) = s_Dir Then
                lstDir.RemoveItem (i)
                Exit For
            End If
        Next i
        s_Dir = Dir()
    Loop Until s_Dir = ""
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам