Unterordner auswählen
12.08.2005 10:47:47
yogi
mit dem foldenden Code aus dem Forum kann ein Ordner ausgewählt werden:
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare
Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare
Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
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
Sub testmakro()
sPath = GetDirectory("Wählen Sie einen Ordner aus")
If sPath = "" Then
MsgBox "Sie haben keinen Ordner gewählt!"
Else
MsgBox "Sie haben diesen Ordner gewählt: " & sPath
End If
End Sub
Leider wird aber immer der Desktop angezeigt, so dass irgendein Ordner ausgewählt werden kann.
Der Benutzer soll aber nur aus den Unterordnern eines zu Laufzeit vorgebenen Ordners auswählen können, z.B. aus C:\temp
Gruss und schönes Wochenende
yogi