批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
回复 1# batman
Win7应该是不提供Useraccounts.CommonDialog,选择文件我一般都是用的:
  1. function BrowseForFile()
  2.     dim shell : set shell = CreateObject("WScript.Shell")
  3.     dim fso : set fso = CreateObject("Scripting.FileSystemObject")
  4.     dim tempFolder : set tempFolder = fso.GetSpecialFolder(2)
  5.     dim tempName : tempName = fso.GetTempName()
  6.     dim tempFile : set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
  7.     tempFile.Write _
  8.     "<html>" & _
  9.     "<head>" & _
  10.     "<title>Browse</title>" & _
  11.     "</head>" & _
  12.     "<body>" & _
  13.     "<input type='file' id='f' />" & _
  14.     "<script type='text/javascript'>" & _
  15.     "var f = document.getElementById('f');" & _
  16.     "f.click();" & _
  17.     "var shell = new ActiveXObject('WScript.Shell');" & _
  18.     "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
  19.     "window.close();" & _
  20.     "</script>" & _
  21.     "</body>" & _
  22.     "</html>"
  23.     tempFile.Close
  24.     shell.Run tempFolder & "\" & tempName & ".hta", 0, true
  25.     BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
  26.     shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
  27. end function
复制代码
1

评分人数

    • broly: 感谢分享技术 + 1
看得多说得多,远比不上写得多。

TOP

返回列表