请问我想用vbs实现记事本打开使用选择框选定文件的流程，请问哪里出错了？

Posted 2023-04-22

可以打开文件选择框，可以打开记事本，但是打不开已经选定的文件，求大佬赐教
a=(CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll)
Program1 = "notepad &a"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)

参考技术A Program1 = "notepad &a"
改为
Program1 = "notepad """ & a & """"本回答被提问者采纳

如何打开.vbs格式的文件？

我把网上的一段vbs代码复制粘贴在.txt文档上，然后修改.txt后缀名为.vbs，但是我双击后代码没有执行，还是显示.txt文字，请问大神，.vbs文档怎么打开？
windows xp操作系统

这是因为vbs格式文件被设置了默认打开方式为记事本，将vbs格式文件打开方式设置为“Microsoft ® Windows Based Script Host”即可：

1、右击桌面上的vbs格式文件，在展开的列表中点击“属性”按钮：

2、砸i属性设置界面中点击打开方式后面的“更改...”按钮更改打开方式：

3、在弹出的打开方式中选择“Microsoft ® Windows Based Script Host”，然后点击“确认”按钮保存：

4、这时双击vbs格式文件会直接运行脚本，如果脚本有错误会弹出错误信息：

参考技术A 你是XP系统么？如果是~随便打开一个文件夹 菜单：工具--文件夹选项---查看---隐藏已知文件类型的扩展名 前面将勾去掉~然后再修改vbs文件后缀名~~
win7也是打开文件夹--菜单--组织--文件夹和搜索选项-剩下一样追问

大神，受我一拜，按照你说的，我已经可以打开了

本回答被提问者采纳 参考技术B wscript.exe和cscript.exe是Windows操作系统的脚本引擎，要运行脚本就必须有这两个文件，其中cscript.exe是DOS下的引擎，这两个文件是写保护的，即使将它们删掉，系统也会自动恢复。如果在%windir%/system32目录下没有wscript.exe和cscript.exe文件，只要从其它计算机将这两个文件复制并粘贴在上述目录下即可。有些软件会将“.vbs”的文件的默认打开方式改成其他的方式。这样在运行vbs程序的时候，系统就没有用脚本解释程序打开，而是启动了另外的一个不相关的程序。

使用脚本执行补丁Windows Script Version
　　1、下载脚本执行补丁Windows Script 5.6,请按照提示安装Windows Script 5.6，然后重新启动计算机即可。下载地址为http://image.psychcn.com/downloads/vbs/scripchs.rar(支持的操作系统：Windows 2000, Windows XP)。

你这个应该是没有相应的执行程序了。。可以下载下试试，如果还不行，那可能是文件关联的问题了。追问

我刚刚安装了windows script 5.6，重启电脑后，还是不能打开