GetOpenFileNameでフォルダ指定するには？ (ID:83511)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 APIでよければ SHBrowseForFolder 使うとか。 あるいはShell.Application使って Dim ShellApp As Object Dim oFolder As Object Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1) とか