怎么实现打开文件夹，选择文件。

vba代码：
With Application.FileDialog(3)
    If .Show Then For i = 1 To .SelectedItems.Count: p = p & .SelectedItems(i) & ",": Next
End With

非常感谢，尝试了VBS第一种方法，只能选中一个文件，不能选择多个文件返回。

感谢，我想用3楼提供的不用控件方法。

'打开对话框
Set wShell = CreateObject("WScript.Shell")
Set oExec = wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")

'输出选择的，文件的路径
File_Selected = oExec.StdOut.ReadLine
MsgBox File_Selected

只能选择一个文件

提示该部件的许可信息没有找到，是要安装什么补丁吗？