Вопрос

[xqz_me]

С некоторого устройства (не комп) получается в массив список файлов в таком виде:

4 байта - размер файла
2 байта - аттрибут 1
2 байта - аттрибут 2
стока длиной 1F8h - имя файла

итого размер записи на 1 файл - 200h байт. Количество файлов в устройстве известо. Физических дисков в нём - три штуки (список получается для всех сразу). Путь к файлу прописывается стандартным образом. Задача: С помощью treeview простроить дерево папок. При выделении папки в treeview в таблице отобразить имена файлов в папке, их аттрибуты и размер. Можете помочь, а то я даже не знаю, с чего начать.

[GSerg]

Получить список в массив. Отсортировать по количеству слэшей. Добавлять в дерево подряд, используя в качестве ключа путь папки.

[xqz_me]

Побывал в поиске, нашёл этот обрезанный топик.

Вообщем, получить адреса папок не составляет проблем. Проблема в том, что я не знаю как создавать ветки в treeview. Вот например, есть три пути а/folder1/folder2, b/folder3/folder2 и c/folder1/folder2/folder3/folder4, где, например, фолдеры с одинаковыми цифрами имеют одно и то же название. Как для них создать соответствующее дерево? И как при щелчке по ветке определить путь этой ветки?

[GSerg]

Внимательно перечитав сказанное выше. можно сделать много важных выводов... в первую очередь о том, что список надо отсортировать по количеству слэшей, по возрастанию...

[xqz_me]

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

[GSerg]

А после того, как список отсортирован по количеству слэшей, можно - вернувшись к внимательному перечитыванию сказанного выше - идти по списку от начала до конца, выполняя каждый раз nodes.add, причём ключом нового нода будет являться сам путь к папке, а ключом родительского нода - путь этой же папки, укороченный на 1 последний слэш...

[xqz_me]

TreeView1.Nodes.Add ([Relative], [Relationship], [Key], [Text], [Image], [Selected image]) - можно пояснить, как этим пользоваться? Я не понял. На примере:

Вот например, есть три пути а/folder1/folder2, b/folder3/folder2 и c/folder1/folder2/folder3/folder4, где, например, фолдеры с одинаковыми цифрами имеют одно и то же название.

И ещё:

И как при щелчке по ветке определить путь этой ветки?

[GSerg]

xqz_me
Я тебе всё объяснил. Очень подробно. В деталях. Я не знаю, как это можно не понять.

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

  Dim arr(1 To 5) As String, i As Long
 
  arr(1) = "c:"
  arr(2) = "c:\foo"
  arr(3) = "c:\bar"
  arr(4) = "c:\foo\bar"
  arr(5) = "c:\bar\foo"
 
  TreeView1.Nodes.Add , , arr(1), arr(1)
 
  For i = LBound(arr) + 1 To UBound(arr)
    TreeView1.Nodes.Add Left$(arr(i), InStrRev(arr(i), "\") - 1), tvwChild, arr(i), Mid$(arr(i), InStrRev(arr(i), "\") + 1)
  Next

Сравни с тем, что я сказал словами. И подумай, почему ты просишь код несмотря на то, что всё разжёвано. Просто есть категория лиц, всегда поступающих именно так, и я тебя хочу туда отнести. С последующим игнором.

[xqz_me]

И подумай, почему ты просишь код несмотря на то, что всё разжёвано.

Просто есть категория лиц, всегда поступающих именно так, и я тебя хочу туда отнести. С последующим игнором.

ИМХО, подобные заявления были несколько необоснованны. Конкретно, было сказано следующее:

Отсортировать по количеству слэшей. Добавлять в дерево подряд, используя в качестве ключа путь папки.

После чего:

А после того, как список отсортирован по количеству слэшей, можно - вернувшись к внимательному перечитыванию сказанного выше - идти по списку от начала до конца, выполняя каждый раз nodes.add, причём ключом нового нода будет являться сам путь к папке, а ключом родительского нода - путь этой же папки, укороченный на 1 последний слэш...

Что для человека, который сказал:

Я не знаю как создавать ветки в treeview

ни о чём не говорит. Однако же выяснилось, что

Я тебе всё объяснил. Очень подробно. В деталях. Я не знаю, как это можно не понять.

Странно как-то.


За код большое спасибо.

[xqz_me]

И ещё, вопрос

И как при щелчке по ветке определить путь этой ветки?

остался открытым.

Я попробовал сделать так:

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

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node
End Sub

. Но возвращается только имя текущей ветки. Как получить весь путь, от корня дерева до ветки, по которой щёлкнули.

[GSerg]

msgbox node.key - для тех, кто принципиально не пользуется клавишей F2.

[PUNK-GRUNGER]

И ещё, вопрос

И как при щелчке по ветке определить путь этой ветки?

остался открытым.

TreeView1.Nodes([INDEX]).FullPath