ник: Serge Gavrilov
>Проблема в том, что выводятся все потомки кроме одного последнего
но вы же сами написали
While inCounter <> kidNode.LastSibling.Index
вот последний и не выводится .
Вариантов много, например
Do
Set itmX = lv.ListItems.Add(, , tvM.Nodes(inCounter).Text)
if inCounter = kidNode.LastSibling.Index then exit Do
inCounter = tvM.Nodes(inCounter).Next.Index
Loop
|