フォルダブラウザでフォルダの選択

example(VBA)

Private Function GetDirName() As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
      GetDirName = .SelectedItems(1)
    Else
      GetDirName = ""
    End If
  End With
End Function

他にもいろいろ方法があるけど、一番手っ取り早いやつで!!