vba - 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