カタログ ウィンドウの指定したパスを展開

public void ExpandSelecetdTreeNode()
{
	IGxApplication gxApplication = default(IGxApplication);
	gxApplication = Application;

	IGxTreeView gxTreeView = default(IGxTreeView);
	gxTreeView = gxApplication.TreeView;

	IGxView gxView = default(IGxView);
	gxView = gxTreeView;

	//If you want to select the location.
	gxApplication.Location = "C:\\Users\\Administrator\\Documents\\ArcGIS";

	IGxObjectContainer gxSelectedContainer = default(IGxObjectContainer);
	gxSelectedContainer = gxApplication.SelectedObject;

	IEnumGxObject gxObjects = default(IEnumGxObject);
	gxObjects = gxSelectedContainer.Children;
	if (gxObjects == null)
		return;
	gxObjects.Reset();

	IGxObject gxChildObject = default(IGxObject);
	gxChildObject = gxObjects.Next;

	IGxSelection gxSelection = default(IGxSelection);
	gxSelection = new gxSelection();
	gxSelection.SetLocation(gxChildObject, null);
	gxSelection.Select(gxChildObject, false, null);

	gxTreeView.EnsureVisible(gxChildObject);

	gxView.Refresh();

}
Sub ExpandSelecetdTreeNode()
    Dim gxApplication As IGxApplication
    Set gxApplication = Application
    
    Dim gxTreeView As IGxTreeView
    Set gxTreeView = gxApplication.TreeView
    
    Dim gxView As IGxView
    Set gxView = gxTreeView
    
    'If you want to select the location.
    gxApplication.Location = "C:\Users\Administrator\Documents\ArcGIS"
    
    Dim gxSelectedContainer As IGxObjectContainer
    Set gxSelectedContainer = gxApplication.SelectedObject

    Dim gxObjects As IEnumGxObject
    Set gxObjects = gxSelectedContainer.Children
    If gxObjects Is Nothing Then Exit Sub
    gxObjects.Reset
    
    Dim gxChildObject As IGxObject
    Set gxChildObject = gxObjects.Next
    
    Dim gxSelection As IGxSelection
    Set gxSelection = New gxSelection
    Call gxSelection.SetLocation(gxChildObject, Nothing)
    Call gxSelection.Select(gxChildObject, False, Nothing)

    Call gxTreeView.EnsureVisible(gxChildObject)
    
    Call gxView.Refresh
    
End Sub