主题：如何获得目录树当前选择的索引？

这个简单，不过还是需要代码去控制一下。你上传一个例子吧。

 按钮的代码如下，这个是下一条的。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim found As Boolean = False
Dim nNode As WinForm.TreeNode
Dim sNode As WinForm.TreeNode = trv.SelectedNode
If snode Is Nothing Then
    trv.SelectedNode = trv.AllNodes(0)
Else
    For Each n As WinForm.TreeNode In trv.AllNodes
        If found Then
            nNode = n
            Exit For
        End If
        If trv.SelectedNode.FullPath = n.FullPath Then
            found = True
        End If
    Next
   
    If nNode Is Nothing Then
        trv.SelectedNode = trv.AllNodes(0)
    Else
        trv.SelectedNode = nNode
    End If
end if

 筛选的问题，你可以参考筛选树的代码来自己做一下。

 http://www.foxtable.com/help/topics/0917.htm