Macros for collapsing solution tree in Visual Studio

Imports System

Imports EnvDTE

Imports EnvDTE80

Imports EnvDTE90

Imports System.Diagnostics

Public Module CollapseTree

Sub CollapseAll()

' Get the the Solution Explorer tree

Dim solutionExplorer As UIHierarchy

solutionExplorer = DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object()

' Check if there is any open solution

If (solutionExplorer.UIHierarchyItems.Count = 0) Then

Return

End If

' Get the top node (the name of the solution)

Dim rootNode As UIHierarchyItem = solutionExplorer.UIHierarchyItems.Item(1)

rootNode.DTE.SuppressUI = True

' Collapse each project node

Collapse(rootNode, solutionExplorer)

' Select the solution node, or else when you click

' on the solution window

' scrollbar, it will synchronize the open document

' with the tree and pop

' out the corresponding node which is probably not what you want.

rootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)

rootNode.DTE.SuppressUI = False

End Sub

Private Sub Collapse(ByVal item As UIHierarchyItem, ByRef solutionExplorer As UIHierarchy)

For Each innerItem As UIHierarchyItem In item.UIHierarchyItems

If innerItem.UIHierarchyItems.Count > 0 Then

' Re-cursive call

Collapse(innerItem, solutionExplorer)

' Collapse

If innerItem.UIHierarchyItems.Expanded Then

innerItem.UIHierarchyItems.Expanded = False

If innerItem.UIHierarchyItems.Expanded = True Then

' Bug in VS 2005

innerItem.Select(vsUISelectionType.vsUISelectionTypeSelect)

solutionExplorer.DoDefaultAction()

End If

End If

End If

Next

End Sub

End Module