フォルダを選択するダイアログボックスの表示 FileDialog



Application.FileDialog(msoFileDialogFolderPicker).Show

FileDialogはユーザーに任意でフォルダを選択出来るダイアログボックスを表示する機能のオブジェクトです。
ダイアログボックスを表示してフォルダを開いている状態で「ＯＫボタン」をクリックした時のフォルダを.SelectedItemsプロパティに取得します。


サンプル　（選択したフォルダをメッセージボックスに表示）
Sub SampleFolderD()
    '取得するフォルダ名の宣言
    Dim folder1 As String
    'ダイアログボックスを表示
    Application.FileDialog(msoFileDialogFolderPicker).Show
    
    'OKボタンをクリックした時のフォルダの取得
    folder1 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
     
    'フォルダ名をMsgBoxに表示
    MsgBox folder1
End Sub


結果　


「OK」を押した時点でのパスを取得します
例の場合は"～～\My Music"までのフルパスを取得します



関連
ファイル、フォルダの有無確認(Dir)関数
ラベル: