Starte i specifik mappe.

Hejsa.

Jeg har et felt hvor jeg kan trykke browse for at vælge stien til en bestemt mappe. Nu er det sådan at når jeg trykker browse så kommer den op med denne computer som "rod". Er det muligt at sætte den til at starte et andet sted, som f.eks f:\start her\i denne mappe.

Koden ser således ud:
Public Function BrowseFolder(szDialogTitle 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
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
 
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(800)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
 
    If X Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = "Vælg Programmappe"
    End If
End Function

Mvh Rasmus Porsager