Antonariy » 05.06.2006 (Пн) 9:11
Прекрасно поняли с первого раза. Просто вчера было воскресенье.
Подключаешь к проекту MSXML любой понравившейся версии, обявляешь
Dim doc As New DomDocument
doc.loadXML "<root></root>"
после чего в цикле перебираешь ноды TreeView и делаешь для каждой
Set xmlNode = doc.createNode(....)
и пишешь в нее значение ноды TreeView и ее индекс.
потом делаешь doc.selectSingleNode по treeNode.Parent.Index, если таковая найдена, делаешь FoundXmlNode.appendChild treeNode, а если treeNode.Parent Is Nothing, то добавляешь в корень.
ЗЫ целиком писать тебе процедуру никто не будет.
Лучший способ понять что-то самому — объяснить это другому.