中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 08:45

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » [已完结]帮我修正一下快捷方式打开所在位置的VBS代码

可打印版本　2,665 / 25

第16楼　slore	发表于 2009-08-05 13:21
铂金会员　发帖 2,478　积分 5,212
Set args = WScript.Arguments linkname = args(0) Set wshshell = CreateObject("WScript.Shell") Set scut = wshshell.CreateShortcut(linkname) Set fs = CreateObject("Scripting.FileSystemObject") folder = fs.GetParentFolderName(scut.TargetPath) If Left(folder,1) <> """" Then folder = """" & fs.GetParentFolderName(scut.TargetPath) & """" wshshell.Run("explorer " & folder)

第17楼　kidzgy	发表于 2009-08-05 21:25
中级用户　发帖 129　积分 262
还是这样，我想第4行出了问题吧，应该就在那里作判断有无双引号这是我快捷方式的图 [ Last edited by kidzgy on 2009-8-6 at 08:27 ]

第18楼　kidzgy	发表于 2009-08-06 22:52
中级用户　发帖 129　积分 262
http://upload.cn-dos.net/img/1638.zip 这是个迅雷的快捷方式，你试试看吧。

第19楼　slore	发表于 2009-08-07 00:41
铂金会员　发帖 2,478　积分 5,212
正常。。。

第20楼　kidzgy	发表于 2009-08-07 07:45
中级用户　发帖 129　积分 262
那就是没有办法解决了，那这个程序就只能对于没有双引号的路径使用？

第21楼　slore	发表于 2009-08-07 08:06
铂金会员　发帖 2,478　积分 5,212
我这里有没有都正常运行。。

第22楼　kidzgy	发表于 2009-08-07 08:15
中级用户　发帖 129　积分 262
那就太奇怪了，到底会是什么问题呢？有空我得到网吧试试

第23楼　kidzgy	发表于 2009-08-07 08:44
中级用户　发帖 129　积分 262
我明白了。我的迅雷快捷方式的类型跟网络连接里创建宽带连接的快捷方式的实质是一样的。而我打包成ZIP，再解压的时候，就形成了主程序右键发送到桌面的快捷方式一样。例如图，我用新建RAR，打开看桌面，只看到迅雷快捷方式lnk的图标，而宽带连接和另一个迅雷却看不到，这里也由此说明另一个迅雷和宽带连接的快捷方式的实质是一样的，但是不同于发送到桌面的快捷方式。因此才会产生这样的错误。其实，就算双引号引着，也没有必要修改了，因为原来5楼修复好的，已经能够用了。

第24楼　kidzgy	发表于 2009-08-07 08:47
中级用户　发帖 129　积分 262
像弹出17楼的提示，是因为我对右键的不是以lnk为末尾文件名的快捷方式，而是系统注册表形成的另一种快捷方式。

第25楼　slore	发表于 2009-08-07 12:42
铂金会员　发帖 2,478　积分 5,212
你看不到不是这个原因。。。是因为他们不在这个目录。。。桌面是 all users 和你自己的桌面显示在一起的…… 你从常规属性应该能看到了

第26楼　kidzgy	发表于 2009-08-07 22:16
中级用户　发帖 129　积分 262
原来如此啊。。

上一页　 1 2

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023