[VB.NET]调用系统的文件夹选择对话框

小爱

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          Dim _selectedFolder As String = SelectFolder("请选择安装目录", True) '显示选择安装目录界面，同时允许创建新文件夹
          MsgBox(_selectedFolder)
      End Sub
  
      Private Function SelectFolder(ByVal Describe As String, Optional ByVal ShowNewFolder As Boolean = True) As String
          Using nOpen As New System.Windows.Forms.FolderBrowserDialog()
            nOpen.Description = Describe
             nOpen.ShowNewFolderButton = ShowNewFolder
             nOpen.ShowDialog()
             Return nOpen.SelectedPath
         End Using
     End Function