With Application.FileDialog(msoFileDialogFolderPicker)
'ファイル選択ダイアログボックスのプロパティ
.AllowMultiSelect = False '複数選択を許可するかどうか（True：許可する、False：許可しない）
.Title = "フォルダを選択してください" 'ダイアログボックスのタイトル
.InitialFileName = "C:" 'ダイアログボックスで最初に表示されるディレクトリのパス
.InitialView = msoFileDialogViewDetails 'ダイアログボックスで最初に表示されるビュー（msoFileDialogViewDetails：詳細表示、msoFileDialogViewList：一覧表示、msoFileDialogViewTiles：タイル表示）
.Filters.Clear 'フィルタをクリア
.Filters.Add "テキストファイル", ".txt" 'フィルタを追加（表示するファイルの種類を指定する）
.Filters.Add "Excelファイル", ".xls,*.xlsx" 'フィルタを追加（表示するファイルの種類を指定する）
.ButtonName = "選択" 'OKボタンのキャプション
.CancelButtonName = "キャンセル" 'キャンセルボタンのキャプション
.AllowSorting = True '並べ替えを許可するかどうか（True：許可する、False：許可しない）
.InitialFileName = ThisWorkbook.Path 'ダイアログボックスで最初に表示されるディレクトリを、Excelファイルが保存されているフォルダにする
.Show
End With
