如何在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 

它似乎運作良好。有興趣的話，如果有一個簡單的「純虛擬實驗室」版本。