主题：[求助]目录树级点代码

Dim tv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tv.AllNodes
    Dim jm As String = Format(nd.Index + 1,"00")
    dim pnd as WinForm.TreeNode = nd
    Do
        If pnd.ParentNode Is Nothing Then
            Exit Do
        Else
            pnd = pnd.ParentNode
            jm = Format(pnd.Index + 1,"00") & "." & jm
        End If
    Loop
    output.show(nd.Text & "|" & jm)
   
Next