Function SelectFile()
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>""")
SelectFile = oExec.StdOut.ReadAll
End Function
MsgBox SelectFile()
vbs打开文件对话框
最新推荐文章于 2024-01-09 10:56:45 发布