フォルダ選択ダイアログを表示するには BrowseForFolder を使う。サンプルスクリプト次のスクリプトは、デスクトップをルートとしたフォルダ選択ダイアログを表示する。'シェルオブジェクト生成 Dim shellApp Set shellApp = CreateObject("Shell.Applicatio…