Mit "GetDirectory" Ordner auswählen
02.09.2003 14:46:35
Detlef
ich habe folgendes Problem. Mit untem abgebildetem Code aus dem Archiv wähle ich einen Ordner aus. Das funktioniert auch sehr gut, ich möchte allerdings schon einen Verzeichnisspfad vorgeben an dessen Ende dann nur noch drei oder vier Ordner zur Auswahl stehen. Bei dem Code den ich jetzt benutze muß ich mich immer vom Arbeitsplatz über die Unterordner bis zu diesen drei oder vier Ordnern durch klicken.
Ich hoffe es kann mir jemand helfen...
Vielen Dank schon mal,
Gruß Detlef
Function GetDirectory(Optional Msg As String) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
GetDirectory = Left(Path, pos - 1)
Else
GetDirectory = ""
End If
End Function