[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] Win7系统中用VBS脚本打开选择文件对话框的代码

如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢
相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。

我如何向用户显示一个用来选择文件的对话框?

问:嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? — BF

答:您好,BF。如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP,情况就不同了。在 Windows XP 上,您可以使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本:

代码我就不复制粘贴了,原文里面有,网上也到处都是。但是问题在于,这段代码只能用于 Windows XP 系统(Windows 2003 或许也可以,但是我没有测试过),而现在 Windows 7 已经逐渐开始流行起来。在 Vista 和Windows 7 系统中默认是不自带 UserAccounts.CommonDialog 组件的(顺便提一句,SAFRCFileDlg.FileOpen 和 SAFRCFileDlg.FileSave 组件也是没有的)。

那么如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢?答案是 html 中的文件选择对话框:

  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
  28. 'Author: Demon
  29. 'Website: http://demon.tw
  30. 'Date: 2011/6/2
  31. path = BrowseForFile()
  32. If path <> "" Then WScript.Echo path
复制代码


原文:http://demon.tw/programming/vbs-open-file-dialog.html

论坛里多的是。
这位老兄不要老做重复性工作好吗?
一点益处都没有。

TOP

回复 2# powerbat


照这个理论,此论坛90%的帖子都应该删掉吧。

TOP

你这是什么理论?

TOP

回复 4# powerbat


跟你的差不多

TOP

一百个人问一个相同的问题,与一百个人转载同一篇文章,这是相同的理论吗?
前者可能是这些人懒惰或不会搜索(很正常,这样的人往往是新手,自然搜索引擎也不大会使用),更何况论坛主要就是让人交流提问的地方。
但后者是一种什么心态就难说了。

TOP

回复 6# powerbat


这个论坛有几篇跟顶楼相同的文章?

TOP

返回列表