ディレクトリ選択ダイアログ

'ディレクトリを選択するダイアログを表示。
Dim target_dir As String

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        target_dir = .SelectedItems(1)
    End If
End With

※選択されなかったら空文字が返る。
取得されるパスの最後にスプリット文字（￥や／）がつかない。