Add Workgroup search path at first position

By Adam Nagy

It seems that using the WorkgroupPaths.Add(Name, Path, Index) function there is no way to insert the new path at the first position in the list. If you pass in 0 as Index, then it's placed at the end, if you pass in 1, then it's placed at the second position.

The workaround is to remove the item at the first position and reinsert it at the second position (Index = 1):

Sub AddWorkGroupSearchPathAtFirstPosition()
  Dim dpm As DesignProjectManager
  Set dpm = ThisApplication.DesignProjectManager

  Dim dp As DesignProject
  Set dp = dpm.ActiveDesignProject
  
  ' Add the new path: this will place it at
  ' second position
  Call dp.WorkgroupPaths.Add("CommonspaceNew", "C:\Temp", 1)
  
  ' Workaround: remove the one currently at the 1st position
  ' and then add it back as second
  Dim pp1 As ProjectPath
  Set pp1 = dp.WorkgroupPaths(1)
  Dim name As String
  Dim path As String
  name = pp1.name
  path = pp1.path
  Call pp1.Delete
  Call dp.WorkgroupPaths.Add(name, path, 1)
End Sub