Programなんてことだ、こんな簡単にフォルダエクスプローラーが呼び出せたなんて･･。目から鱗とはまさにこのこと。 アプリケーションのメイン部分自体は、前に作成したFolder List Toolを利用しています。 '-------------------------------------------------- 'BrowseForFolderを呼び出し、フォルダのパスを返す '-------------------------------------------------- Public Function BrowseFolder(Optional myRoot As Variant) As String Dim objFolder As Object ' フォルダ選択ダイアログを表示 Set objFolder = CreateObject("Shell.Application") _ .
