VBScript打开一个对话框来选择一个文件路径

Question

目前我用我的vbscript打开一个文件如下:

strFile = "C:\Users\test\file.txt"
Set objFile = objFSO.OpenTextFile(strFile)

我想更改此设置,以便用户可以选择/导航文件,并在脚本中使用该文件.我该如何添加此功能？我试图搜索如何加载文件对话框/提示用户的文件等,只是不知道如何在VBScript中完成.

Answer 1

还有另一个解决方案,我发现有趣的是MS TechNet较少定制,但得到了你想要实现的目标.这将返回所选文件的完整路径.

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>""")
sFileSelected = oExec.StdOut.ReadLine
wscript.echo sFileSelected