如何在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＆＃34;版本