从目录树筛选,代码如下:
Dim Value() As String
Value = e.Node.FullPath.Split("\")
If Value(0)="按单位" Then
Select Case e.Node.Level
Case 3