This is what I did:

code:

---

$index = 0
Do
   $group = Enumgroup($index)
   $index = $index + 1
      IF INSTR($group,"Inl")
        $Hoger = RIGHT($group,10)
           IF INSTR($Hoger,"ola")
             $Trim = RIGHT($Hoger,6)
             $Resultat = LEFT($Trim,3)
           ELSE
             $Resultat = LEFT($Hoger,3)
           ENDIF
      ENDIF
Until Len($Group) = 0
Use x: \\Server\$Resultat

---

I don't know if it's possible to optimize this, but it works as it is.

regards
Frippe

[ 07 January 2002: Message edited by: Frippe ]