Hallo Experten …
Wuerde gern unter VBA in Excel ( 97 ) einen Dialog zur
Verzeichnisauswahl aufrufen…
Mit dem CommonDialog geht es nicht…
Hat jemand 'ne Idee ??
Danke im voraus …
Gruss brAin
Wuerde gern unter VBA in Excel ( 97 ) einen Dialog zur
Verzeichnisauswahl aufrufen…
Mit dem CommonDialog geht es nicht…
Hi,
Du verwendest wahrscheinlich das falsche CommonDialog (GetOpenFileName anstatt SHBroseForFolder), so wie ich es auch schon mal getan hatte.
Beispiel aus dem API-Guide(http://www.allapi.net):
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Const BIF\_RETURNONLYFSDIRS = 1
Const MAX\_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Sub Form\_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'[email protected]
Dim iNull As Integer, lpIDList As Long, lResult As Long
Dim sPath As String, udtBI As BrowseInfo
With udtBI
'Set the owner window
.hWndOwner = Me.hWnd
'lstrcat appends the two strings and returns the memory address
.lpszTitle = lstrcat("C:\", "")
'Return only if the user selected a directory
.ulFlags = BIF\_RETURNONLYFSDIRS
End With
'Show the 'Browse for folder' dialog
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX\_PATH, 0)
'Get the path from the IDList
SHGetPathFromIDList lpIDList, sPath
'free the block of memory
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
MsgBox sPath
End Sub
Gruß
J.