VBS打开选择文件对话框（Windows 7）【最简化 一句代码】

去掉4个单引号
MsgBox CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value);close();</script>""").StdOut.ReadAll

再修改一下，解决点“打开”按钮之后，Msgbox之前会弹出mshta窗口闪一下的问题。
MsgBox CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll

代码很厉害^-^以前我用IE对象做了一个代码就长得多了。。
另外想请教楼主一个问题：
GetStandardStream方法是干什么的呢？我查了一下是返回TextStream对象，可是测试又貌似只能在cscript下执行，所得的stdout，stdin，stderr貌似和wscript.stdout,in,err没区别？和文件没关啊？为什么fso里会有这么一个方法呢？

好方法！测试Windows 10 可行，其实我也是用IE解决的……