12-19-2023
05:18 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-19-2023
05:18 AM
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