Hallo



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

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von Ramses , 10.07.2005, 22:12 Uhr , 32 mal gelesen