VBNet - Форум - получение списка директорий (DIR) ??????

Вопрос: получение списка директорий (DIR) ?????? Добавлено: 31.07.03 18:19

Автор вопроса: Grayich | Web-сайт: grayich.narod.ru | ICQ: 208280504

Это глюг (DIR) или что ????
Этот код должен в ListBox выводить список папок, конечно список папок выводиться но к нему еще примешиваются файлы .
Если это глюк то как можно получить список папок другим способом ??? (только не через дополнительные контролы и BAT файлы типа *dir /A:D /B > list.txt* !!!!!!!!!!!)

'-----------------------------------Глюк :)--------------------------------------------
Private Sub Command1_Click()
Dim Fold As String
Fold = Dir("c:\*", vbDirectory)
List1.AddItem Fold
Metka:
    If Fold <> "" Then
            Fold = Dir
            List1.AddItem Fold
            GoTo Metka
    End If
End Sub
'---------------------------------------------------------------------------------------

Ответить

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

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

Село

Вопросов: 1
Ответов: 9

Web-сайт: arsallgames.narod.ru
Профиль | | #1

Добавлено: 31.07.03 21:57

Если у тебя VB6, то лучше не мучайся а используй контролы: DriveListBox, DirListBox, FileListBox

Ответить

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

shuffle

Администратор

ICQ: 201502381

Вопросов: 15
Ответов: 737

Профиль | | #2

Добавлено: 31.07.03 23:12

1. Никогда не используй GoTo, когда можно обойтись циклами! Это плохой стиль!
2. Вот собственно и пример:

Private Sub Command1_Click()
   Dim Fold As String
   Fold = Dir("c:\*", VbFileAttribute.vbDirectory)
   List1.AddItem Fold
   Do While Fold <> ""
      Fold = Dir
      If Fold <> "" And GetAttr("c:\" & Fold) = vbDirectory Then
         List1.AddItem Fold
      End If
   Loop
End Sub

Ответить

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

Grayich

ICQ: 208280504

Вопросов: 56
Ответов: 164

Web-сайт: grayich.narod.ru
Профиль | | #3

Добавлено: 01.08.03 00:00

Спасибо за ответ.

А вот насчет GOTO может и не правильно зато мне удобнее

Ответить

Страница: 1 |