Dim oShell
Dim oFolder
Dim sPath
 
sPath = ""
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(0&, "Bitte Zielpfad auswählen", 1)
If Not oFolder Is Nothing Then
  sPath = oFolder.Self.Path
End If
Set oFolder = Nothing
Set oShell = Nothing
 
MsgBox sPath

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de