Code:
Public Sub AddOccurrencesToFolder()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument Dim oDef As AssemblyComponentDefinition
Set oDef = oDoc.ComponentDefinition
Dim oPane As BrowserPane
Set oPane = oDoc.BrowserPanes.ActivePane
Dim oOccurrenceNodes As ObjectCollection
Set oOccurrenceNodes = ThisApplication.TransientObjects.CreateObjectCollection
Dim oOcc As ComponentOccurrence
For Each oOcc In oDef.Occurrences
Dim oNode As BrowserNode
Set oNode = oPane.GetBrowserNodeFromObject(oOcc)
oOccurrenceNodes.Add oNode
Next
Dim oFolder As BrowserFolder
Set oFolder = oPane.AddBrowserFolder("My Occurrence Folder", oOccurrenceNodes)
End Sub