主题：选择文件或者文件夹 而不打开

比如

Dim Proc As New Process
Dim wj As String = "d:\test.xls"
Dim rs As String = "  /select," & wj & " "
'output.Show(rs)
Proc.File = "explorer.exe" '指定要执行的文件
Proc.Arguments = rs '指定命令行参数
Proc.Start()