Дерево каталогов

[burik]

Сдравствуйте!

Делаю я прогу типа Explorer'а слева лежит TreeView и в нем должно быть дерево каталогов.
Подскажите пожалуйста, как сделать дерево из всех каталогов компа?

Заранее благодарен!

[Antonariy]

1. С помощью FSO рекурсивно перебрать все папки. Просто, но долго.
2. Добавить только корневые папки. При клике на узле добавлять входящие папки. Сложнее, но работает быстро.

[Twister]

2. Добавить только корневые папки. При клике на узле добавлять входящие папки. Сложнее, но работает быстро.

Да не думаю что сложнее, наоборот, никакой рекурсии.

К слову сказать, в Делфях есть два компонента - первый TreeView, который отображает дерево каталогов точь в точь как проводник, второй аналогичный ListView. И ведут они себя так же - Popup Menu такие же, как в Explorer, ну вообщем все одинаковое. Вот и начали меня терзать смутные сомнения, что товарищи из Borland все это ручками делали. Скорее всего это просто обертка над стандартным виндовым классом, таким же, как, например, RichEdit. Пусть меня поправят, если я ошибся...

[burik]

Я делаю вторым способом, но неполучается получить имена подкаталогов.

Код: Выделить всё


Sub drivers()
Dim drivenames As String, thisdrive As String, fld As Folder, drv As Long, _ flds As String
Dim c As Long, i As Long
Dim slength As Long
drivenames = Space(255)
'получаем имена всех дисков
slength = GetLogicalDriveStrings(255, drivenames)
For c = 1 To slength Step 4  '
    thisdrive = Mid(drivenames, c, 3) 
    Set nParent = tvTreeView.Nodes.Add(, , , thisdrive, 1)
    drv = GetDriveType(thisdrive)
    If drv <> 5 And drv <> 2 Then
        Set fld = FSO.GetFolder(thisdrive)

        For i = 1 To fld.SubFolders.Count
            flds = fld.SubFolders.Item(i).Name'Вот здесь происходит ошибка
            tvTreeView.Nodes.Add nParent, , , flds, 2
        Next i

    End If
Next c
End Sub



[alibek]

2. Добавить только корневые папки. При клике на узле добавлять входящие папки. Сложнее, но работает быстро.

По любому придется проходится на уровень ниже, чтобы у нодов появились значки [+].

[vvs_adm]

To alibek: некоторые "нехорошие" приложения не утруждают себя этим и значки "+" есть у всех и пропадают после клика там, где их и быть недолжно

[alibek]

Некрасиво это. Поэтому мне гораздо симпатичнее Explorer, который не экономит таким образом.

[Конь]

alibek
В Explorer'е тоже бывают глюки с плюсиками:(

[burik]

Лично я буду делать, что бы плюсы были только там где надо, а при раскрытии плюса ноды нижнего уровня уже будут присутствовать, а ноды еще одного уровня добавятся. То есть всегда плюсы будут там где надо.

Только вот неполучается добавить нужные ноды(см. мое прошлое сообщение)

[Twister]

при раскрытии плюса ноды нижнего уровня уже будут присутствовать, а ноды еще одного уровня добавятся

Не самое лучшее решение, надо сказать - будет медленно работать. Я делал по другому: если нод должен раскрываться (иметь плюсик), то нужно на уровень ниже добавлять всего один нод. При экспандинге нода-родителя нод-потомок удаляется и добавляются нужные потомки...

[burik]

если нод должен раскрываться (иметь плюсик), то нужно на уровень ниже добавлять всего один нод.

Согласен. Спасибо за идею!

При экспандинге нода-родителя нод-потомок удаляется и добавляются нужные потомки...

Вот добавить нужных потомков не получается:

Код: Выделить всё

Sub Drivers()
Dim drivenames As String, thisdrive As String, fld As Folder, drv As Long, _
    flds As String, NewN As Node
Dim c As Long, i As Long  ' ñ÷åò÷èê
Dim slength As Long
drivenames = Space(255) 

slength = GetLogicalDriveStrings(255, drivenames)

For c = 1 To slength Step 4  '
    thisdrive = Mid(drivenames, c, 3) 
    Set nParent = tvTreeView.Nodes.Add(, , , thisdrive, 1)
    drv = GetDriveType(thisdrive)
    If drv <> 5 And drv <> 2 Then
        Set fld = FSO.GetFolder(thisdrive)


        For i = 1 To fld.SubFolders.Count
            flds = fld.SubFolders.Item(i).Name
            Set NewN = tvTreeView.Nodes.Add(nParent, tvwChild, , flds, 2)
        Next i


    End If
Next c
End Sub


В строке "flds = fld.SubFolders.Item(i).Name" заместо i нужно указать key, а key - это имя папки (то, что мне и нужно получить)...

[Twister]

Что значит

заместо i нужно указать key

?

[burik]

Sub Drivers()
Dim drivenames As String, thisdrive As String, fld As Folder, drv As Long, _
flds As String, NewN As Node
Dim c As Long, i As Long
Dim slength As Long
drivenames = Space(255)

slength = GetLogicalDriveStrings(255, drivenames)

For c = 1 To slength Step 4 '
thisdrive = Mid(drivenames, c, 3)
Set nParent = tvTreeView.Nodes.Add(, , , thisdrive, 1)
drv = GetDriveType(thisdrive)
If drv <> 5 And drv <> 2 Then
Set fld = FSO.GetFolder(thisdrive)

'Цикл от 1 до кол-ва подкаталогов
For i = 1 To fld.SubFolders.Count

'Пытаюсь получить имя папки и в качестве параметра "key"
'Указываю индекс (номер) папки, но так не работает
'Зато если указываю вкачестве параметра "key" имя папки, то все работает
flds = fld.SubFolders.Item(i).Name
Set NewN = tvTreeView.Nodes.Add(nParent,tvwChild,,flds,2)
Next i


End If
Next c
End Sub

Вообщем, как получить имена потомков?

[Naked]

http://btmtz.mvps.org/vbexplorer/vbexplorer.zip

[burik]

Вот это дело!
Спасибо Naked!

[vvs_adm]

Запустил консоль управления и сразу "вспомнил", где это я так часто вижу баг с плюсиками