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

@WCrihfield 

 

i cant figure it out... 

this is the code ive got sofar and this works great!

 

now i want to move folders:

kb klant specifiek

spb-oph klant specifiek

db-strip klantspecifiek

 

to folder: 

20.1 Snij-zetwerk

 

can you help me getting started? 

 

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("10 Hulpframe")
MyArrayList.Add("20 Laadbak")
MyArrayList.Add("20.1 Snij-zetwerk")
MyArrayList.Add("kb klant specifiek")
MyArrayList.Add("spb-oph klant specifiek")
MyArrayList.Add("db-strip klantspecifiek")
MyArrayList.Add("20.2 Zaagwerk")
MyArrayList.Add("20.3 Kluytmans standaard delen")
MyArrayList.Add("db")
MyArrayList.Add("ITL-GSM")
MyArrayList.Add("spb-oph")
MyArrayList.Add("Beugel wl + zijmarkeerlamp")
MyArrayList.Add("20.4 inkoopdelen")
MyArrayList.Add("werklampen")
MyArrayList.Add("bindogen")
MyArrayList.Add("21 Kopschot")

For Each oVal In MyArrayList
    Try
	    oFolder = oTopNode.BrowserFolders.Item(oVal)
    Catch
        oFolder = oPane.AddBrowserFolder(oVal)
    End Try
Next