Window10 VBS调用文件浏览对话框

 

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

原文：http://tieba.baidu.com/p/3510298148