BrowseForFolder
08.02.2006 09:58:17
Giesinger
hab folgendes Problem: Möchte eine Dialogabfrage generieren, die es ermöglicht einen Ordner auszuwählen. Es soll aber auch möglich sein einen neuen Ordner zu erstellen. Mein VBA-Skript sieht wie folgt aus:
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
Declare
Function GetDesktopWindow Lib "user32" () As Long
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
Public
Function GetFolder() As String
Dim bInfo As BROWSEINFO
Dim pPath As String
Dim R As Long, X As Long, pos As Integer
bInfo.pidlRoot = 0&
' If IsMissing(Msg) Then
' bInfo.lpszTitle = "Bitte Zielordner auswählen"
' Else
' bInfo.lpszTitle = Msg
' End If
bInfo.ulFlags = &H1
X = SHBrowseForFolder(bInfo)
pPath = Space$(512)
R = SHGetPathFromIDList(ByVal X, ByVal pPath)
If R Then
pos = InStr(pPath, Chr$(0))
GetFolder = Left(pPath, pos - 1)
Else
GetFolder = ""
End If
End Function
Der Aufruf der Funktion sieht folgendermaßen aus:
Dim strBuff As String
strBuff = GetFolder()
If strBuff = "" Then
MsgBox "Kein Pfad ausgewählt"
Else
Mit benanntem Skript ist es leider nicht möglich Ordner zu erstellen. Es wäre nett wenn mir jemand bei diesem Problem helfen könnte
Thx
Chris