browse folder

Jeg har problemer med at lade min liste finde den korrekte sti. Listen skal opstartes i mappen der ligger på serveren: "\\Server\Brugermappe"...
Det er jo ikke noget problem hvis folderen lå lokalt, men nu ligger den altså på et netværk...

Public Function BrowseFolder(Optional szDialogTitle As String, _
                            Optional szInitialDir As String) As String

  Dim x As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
 
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .strInitialDir = "\\Server\Brugermappe" 'szInitialDir 'Det er her stien skal sættes
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
   
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
   
    If x Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = left$(szPath, wPos - 1)
    Else
        BrowseFolder = ""
    End If
End Function