OK. I think I understand now. You want to know how to move assembly components in the model browser tree into and out of a model tree browser folder by code. Well...moving things around in the model browser tree is sometimes rather tricky, but if it can be done manually, you can likely do it by code. I opened up one of my testing assemblies and created a fairly basic iLogic rule to do a task like this. I don't know if you want the code to create this specifically named browser folder if it is not already found or not. It will let you have multiple browser folders with the same name, so that can be tricky too. Also, when you create a browser folder by code, you have the option to immediately put one or more browser nodes into that folder when you create it. Or you can just create the empty folder, then put stuff into it later. This example first looks for the folder, and if not found at the top level of the tree structure, it will create it. Then it gets a few specific top level components by name that I want to put into the folder. Then it gets the browser nodes for those components. Then it puts those browser nodes into the browser folder.
Of course, if you want to test this out, you would most likely need to change the names of the components, or get the components a different way.
Dim oADoc As AssemblyDocument = ThisDoc.Document
oADef = oADoc.ComponentDefinition
oOccs = oADef.Occurrences
oModelPane = oADoc.BrowserPanes.Item("Model")
'oModelPane = oADoc.BrowserPanes.Item("AmBrowserArrangement") 'using InternalName
oTopNode = oModelPane.TopNode
Dim oGroup1Folder As BrowserFolder = Nothing
For Each oFolder As BrowserFolder In oTopNode.BrowserFolders
If oFolder.Name = "Group1" Then
oGroup1Folder = oFolder
Exit For
End If
Next
If IsNothing(oGroup1Folder) Then
oGroup1Folder = oModelPane.AddBrowserFolder("Group1")
End If
oOcc1 = oOccs.ItemByName("Part1:3")
oOcc2 = oOccs.ItemByName("Part1:4")
oOcc3 = oOccs.ItemByName("Part3:3")
oNode1 = oModelPane.GetBrowserNodeFromObject(oOcc1)
oNode2 = oModelPane.GetBrowserNodeFromObject(oOcc2)
oNode3 = oModelPane.GetBrowserNodeFromObject(oOcc3)
oGroup1Folder.Add(oNode1)
oGroup1Folder.Add(oNode2)
oGroup1Folder.Add(oNode3)
Wesley Crihfield

(Not an Autodesk Employee)