VBS打開選擇文件對話框代碼（Win7）

Function BrowseForFile()
Dim shell : Set shell = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
Dim tempName : tempName = fso.GetTempName()
Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName ".hta")

tempFile.Write _
"html>" _
"head>" _

"title>Browse/title>" _
"/head>" _
"body>" _

"input type='file' id='f' />" _
"script type='text/javascript'>" _
"var f = document.getElementById('f');" _

"f.click();" _
"var shell = new ActiveXObject('WScript.Shell');" _
"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" _
"window.close();" _

"/script>" _
"/body>" _
"/html>"

tempFile.Close
shell.Run tempFolder "\" tempName ".hta", 0, True
BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function

'Author: Demon
'Website: http://demon.tw
'Date: 2011/6/2

path = BrowseForFile()
If path > "" Then WScript.Echo path