vbscript - 如何在 Windows 7 上制作一个简单的文件对话框？

Question

我正在尝试在 VBScript 中创建一个简单的文件选择对话框。我四处寻找并回答，但没有想出一个简单的解决方案。我不需要过滤器选项等。

在扩展脚本中，我会使用 myFile = File.openDialog().

有人可以给我相当于 Windows 7 的 VBScript 吗？

Answer 1

我在这里使用 shell 脚本找到了以下代码片段https://gist.github.com/mlhaufe/1034241

Function BrowseForFile()
Dim shell : Set shell = CreateObject("Shell.Application")
Dim file : Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000)
BrowseForFile = file.self.Path
End Function 
MsgBox BrowseForFile 

它似乎运作良好。如果有一个简单的“纯 vbs”版本感兴趣。