以下示例代码展示如何调用系统的文件夹选择对话框: 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.ShowNewFolderB