用VB（或者VB.net）怎样打开“浏览文件夹窗口”？（如图）

---

Private Sub Command1_Click()
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "选择文拿雀轿件夹"消肆岁行, 0, "")
If Not sf Is Nothing Then
MsgBox "选择的文件夹是" & vbCrLf & sf.self.Path
End If
Set sf = Nothing
End Sub

---