|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『楼 主』:
[已完结]帮我修正一下快捷方式打开所在位置的VBS代码
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) & """"
wshshell.Run(folder) 这一段是VBS代码。里面有个BUG。附件是安装卸载的BAT.其中包括了VBS代码。
这是一个给快捷方式添加右键【打开所在位置】的程序，功能是右键点击以后打开快捷方式的相应目录。
功能类似于右键属性-查找目标，但是不同的是可以不用查看属性，而且查找目标是选定目标，而打开所在位置是直接打开快捷方式的对应文件夹没有选定目标。
我提出来的问题是，这个VBS运行起来有个BUG，其实这个VBS在网上广为流传，无意中发现便希望兄弟们解决一下问题修复下BUG，完善程序。
例如说：我在桌面上有个maxthon的快捷方式，对应程序是E:\Maxthon\Maxthon.exe
如果同时拥有程序E:\Maxthon.exe （即在E盘存在文件maxthon.exe）
那么在maxthon右键打开所在位置的时候，是在运行E:\Maxthon.exe，当然了，如果没有E:\Maxthon.exe是能实现功能的，这就是BUG。
希望各位能修复一下，就算存在文件E:\Maxthon.exe也能照常进入到快捷方式的对应文件夹。
[ Last edited by kidzgy on 2009-8-7 at 08:56 ]
附件
1:  打开所在位置插件.rar (2009-7-29 05:32, 1.25 K,下载次数： 11)
|
|
 2009-7-29 05:32 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
『第
2 楼』:
另一个代码：
（出处： http://bbs.360safe.com/viewthrea ... mp;page=1#pid352070）
dim ws,objArgs,strPath
Set objArgs = WScript.Arguments
if objArgs.Count>0 then
strPath=mid(objArgs(0),instr(objArgs(0),"/")+1,len(objArgs(0))-instr(objArgs(0),"/"))
end if
set ws=CreateObject("Wscript.Shell")
ws.run "Explorer /select, " & GetTargetPath(strPath)
Function GetTargetPath(LinkName)
On Error Resume Next
Dim Shortcut
Set Shortcut = CreateObject("Wscript.Shell").CreateShortcut(LinkName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save
Set Shortcut = Nothing
End Function
|
|
|
2009-7-29 12:29 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
3 楼』:
非常感谢你的代码，你那功能就完全等于查找目标的了。
而我需要的是，打开快捷方式所在路径，而不选择目标，就是好像鼠标单击了一下那样。查找目标是有的，我想要的是没有的，并且最好能最大化窗口。
|
|
|
2009-7-29 20:36 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
4 楼』:
汗～
结合下。。。
wshshell.Run(folder)
改为
wshshell.Run("explorer " & folder)
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-7-31 07:11 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
5 楼』:
哇，不会吧，就这么简单了。
太感谢啦。那新的代码就是
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) & """"
wshshell.Run("explorer " & folder)
|
|
|
2009-7-31 08:55 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
不知道不选中有啥好处。。。
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-7-31 09:09 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
7 楼』:
是这样的，如果文件夹文件非常多，选中的话，就会到那个文件，可是滚动轴却不在最上端。
如果不选中，就好像双击文件夹刚进入一样，更加快速浏览了。
|
|
|
2009-8-1 07:58 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
8 楼』:
对了，又有新问题出现了，当快捷方式属性【目标】【起始位置】开头和末尾有" 双引号的时候，就没法打开所在位置了。
这样的话又该怎么样解决呢
|
|
|
2009-8-4 08:39 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
9 楼』:
folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"
因为你又加了一次……
先判断本身有引号没。。。
没有再加
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-8-4 09:37 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
10 楼』:
用5楼修改好的代码就弹出这样的提示。
那该怎么样改呢？
[ Last edited by kidzgy on 2009-8-6 at 08:18 ]
|
|
|
2009-8-4 21:15 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
11 楼』:
我试着按你所说，首末都减去一个双引号，或是2个，都没有效果，还是这样的提示
|
|
|
2009-8-4 21:16 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
12 楼』:
wshshell.Run(folder)
前
msgbox folder你就知道你改的有问题了
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-8-5 01:39 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
13 楼』:
我增补了msgbox folder后，对着没有双引号的运行，就弹出首末有双引号。
可是，对着有首末双引号的运行，还是10楼的提示，原因是不是以lnk或url末尾结尾的。
由此可见，问题是，怎么使VBS支持有双引号的快捷方式。
[ Last edited by kidzgy on 2009-8-6 at 08:20 ]
|
|
|
2009-8-5 05:46 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
14 楼』:
有引号的就不要再加引号了……
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-8-5 07:45 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
15 楼』:
麻烦你按照5楼的代码，修正一下，贴个完整的好吗？因为我是新手，如果你贴出个修正好的完全代码，我仔细比对一下，或许我更能理解哪里出了问题，这样我也会成长得更快吧
|
|
|
2009-8-5 08:19 |
|
