' Maximale Knotentiefe ermitteln
  Dim oNode As Node
  Dim nCount As Long
  Dim nMax As Long
 
  With TreeView1
    For Each oNode In .Nodes
      nCount = CountChar(oNode.FullPath, "\")
      If nCount > nMax Then nMax = nCount
    Next
  End With
 
  MsgBox CStr(nMax)

Private Function CountChar(ByVal sText As String, _
  ByVal sChar As String) As Long
 
  Dim nCount As Long
  Dim nPos As Long
 
  Do
    nPos = InStr(nPos + 1, sText, sChar)
    If nPos > 0 Then
      nCount = nCount + 1
    End If
  Loop Until nPos = 0
 
  CountChar = nCount
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de