Starte søgning i specifik mappe.

Starte i specifik mappe.
    100 point fra porsager   

X
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 skrivebordet 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

Og så har jeg en knap der kalder "browsefolder"

Mvh Rasmus Porsager