04-19-2016
11:56 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-19-2016
11:56 PM
Hi, how about this?
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oPane As BrowserPane = oDoc.BrowserPanes.ActivePane
Dim oTopNode As BrowserNode = oPane.TopNode
Dim oFolder As BrowserFolder
Dim MyArrayList As New ArrayList
MyArrayList.add("ENCLOSURE")
MyArrayList.add("FASTENERS")
MyArrayList.add("LIGHTPIPES")
MyArrayList.add("DESIGNATION")
MyArrayList.add("PCB ASSYS")
MyArrayList.add("KITS")
MyArrayList.add("PACKAGING")
MyArrayList.add("REFERENCE")
For Each oVal In MyArrayList
Try
oFolder = oTopNode.BrowserFolders.Item(oVal)
Catch
oFolder = oPane.AddBrowserFolder(oVal)
End Try
Next
Consider using "Accept as Solution" / "Kudos" if you find this helpful.
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods