回复 1# batman
Win7应该是不提供Useraccounts.CommonDialog，选择文件我一般都是用的：- 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
| 
发表于 2013-8-4 07:17
|