07/07/11 23:28:36
>>372
ちょっと邪道だけどこんなのでどうかな？
動いたらBrowseForFolderのオプションは調べてくれ。
Dim Shell
Dim Ret
Set Shell = CreateObject("Shell.Application")
Set Ret = Shell.BrowseForFolder(0, "選ばないか", 0)
If Not Ret Is Nothing Then
Debug.Print Ret.Items.Item.Path
End If