das sollte es sein
Sub Select_User_Folder() Dim mySHFolderItem As Object, selPath As String, myObjShell As Object Dim myDefaultPath As Variant 'wichtig muss Variant sein! Dim myObjFolder As Object myDefaultPath = Application.DefaultFilePath Set myObjShell = CreateObject("Shell.Application") Set myObjFolder = myObjShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, myDefaultPath) If myObjFolder Is Nothing Then Exit Sub Set mySHFolderItem = myObjFolder.Self selPath = mySHFolderItem.path MsgBox selPathEnd Sub
![]() |
Herzliche Grüsse aus der Schweiz Rainer |
geschrieben von Ramses , 10.07.2005, 22:12 Uhr , 29 mal gelesen