方法一：nd.parentNode.ParentNode.ParentNode.Text
方法二：
Dim ary() As String = nd.FullName.Split("\")
msgbox(ary(0))
msgbox(ary(1))
msgbox(ary(2))
加好友 
发短信
Post By：2016/8/15 17:53:00 [显示全部帖子]
