Excel VBAで、選択ダイアログを表示して、指定したフォルダのパス（ディレクトリ）を取得する方法

Sub test()

  Dim lngCount As Long

  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = True
    .Show

    For lngCount = 1 To .SelectedItems.Count
        MsgBox .SelectedItems(lngCount)
    Next lngCount
  End With

End Sub