Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Owner2229
in reply to: mcgyvr

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