主题：文件夹选择问题

以下代码是选择某个文件，必须选择了个文件才能生效，如何改成只是选择某个文件夹

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是：" & dlg.FileName,"提示") '提示用户选择的文件
End If