帮我修正一下快捷方式打开所在位置的VBS代码 - 中国DOS联盟论坛


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 ]

另一个代码：
（出处： http://bbs.360safe.com/viewthread.php?tid=99058&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

非常感谢你的代码，你那功能就完全等于查找目标的了。

而我需要的是，打开快捷方式所在路径，而不选择目标，就是好像鼠标单击了一下那样。查找目标是有的，我想要的是没有的，并且最好能最大化窗口。

汗～

结合下。。。

wshshell.Run(folder)
改为
wshshell.Run("explorer " & folder)

哇，不会吧，就这么简单了。

太感谢啦。那新的代码就是


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)

不知道不选中有啥好处。。。

是这样的，如果文件夹文件非常多，选中的话，就会到那个文件，可是滚动轴却不在最上端。

如果不选中，就好像双击文件夹刚进入一样，更加快速浏览了。

对了，又有新问题出现了，当快捷方式属性【目标】【起始位置】开头和末尾有" 双引号的时候，就没法打开所在位置了。

这样的话又该怎么样解决呢

folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"

因为你又加了一次……

先判断本身有引号没。。。
没有再加

用5楼修改好的代码就弹出这样的提示。
那该怎么样改呢？

[ Last edited by kidzgy on 2009-8-6 at 08:18 ]

我试着按你所说，首末都减去一个双引号，或是2个，都没有效果，还是这样的提示

wshshell.Run(folder)
前
msgbox folder你就知道你改的有问题了

我增补了msgbox folder后，对着没有双引号的运行，就弹出首末有双引号。

可是，对着有首末双引号的运行，还是10楼的提示，原因是不是以lnk或url末尾结尾的。

由此可见，问题是，怎么使VBS支持有双引号的快捷方式。

[ Last edited by kidzgy on 2009-8-6 at 08:20 ]

有引号的就不要再加引号了……

麻烦你按照5楼的代码，修正一下，贴个完整的好吗？因为我是新手，如果你贴出个修正好的完全代码，我仔细比对一下，或许我更能理解哪里出了问题，这样我也会成长得更快吧

第1楼　kidzgy	发表于 2009-07-29 05:32
中级用户　发帖 129　积分 262
[已完结]帮我修正一下快捷方式打开所在位置的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 ] 附件打开所在位置插件.rar (1.25 KiB)

第2楼　tireless	发表于 2009-07-29 12:29
银牌会员　发帖 1,122　积分 2,025
另一个代码：（出处： http://bbs.360safe.com/viewthread.php?tid=99058&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

第3楼　kidzgy	发表于 2009-07-29 20:36
中级用户　发帖 129　积分 262
非常感谢你的代码，你那功能就完全等于查找目标的了。而我需要的是，打开快捷方式所在路径，而不选择目标，就是好像鼠标单击了一下那样。查找目标是有的，我想要的是没有的，并且最好能最大化窗口。

第4楼　slore	发表于 2009-07-31 07:11
铂金会员　发帖 2,478　积分 5,212
汗～结合下。。。 wshshell.Run(folder) 改为 wshshell.Run("explorer " & folder)

第5楼　kidzgy	发表于 2009-07-31 08:55
中级用户　发帖 129　积分 262
哇，不会吧，就这么简单了。太感谢啦。那新的代码就是 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)

第6楼　slore	发表于 2009-07-31 09:09
铂金会员　发帖 2,478　积分 5,212
不知道不选中有啥好处。。。

第7楼　kidzgy	发表于 2009-08-01 07:58
中级用户　发帖 129　积分 262
是这样的，如果文件夹文件非常多，选中的话，就会到那个文件，可是滚动轴却不在最上端。如果不选中，就好像双击文件夹刚进入一样，更加快速浏览了。

第8楼　kidzgy	发表于 2009-08-04 08:39
中级用户　发帖 129　积分 262
对了，又有新问题出现了，当快捷方式属性【目标】【起始位置】开头和末尾有" 双引号的时候，就没法打开所在位置了。这样的话又该怎么样解决呢

第9楼　slore	发表于 2009-08-04 09:37
铂金会员　发帖 2,478　积分 5,212
folder = """" & fs.GetParentFolderName(scut.TargetPath) & """" 因为你又加了一次…… 先判断本身有引号没。。。没有再加

第10楼　kidzgy	发表于 2009-08-04 21:15
中级用户　发帖 129　积分 262
用5楼修改好的代码就弹出这样的提示。那该怎么样改呢？ [ Last edited by kidzgy on 2009-8-6 at 08:18 ]

第11楼　kidzgy	发表于 2009-08-04 21:16
中级用户　发帖 129　积分 262
我试着按你所说，首末都减去一个双引号，或是2个，都没有效果，还是这样的提示

第12楼　slore	发表于 2009-08-05 01:39
铂金会员　发帖 2,478　积分 5,212
wshshell.Run(folder) 前 msgbox folder你就知道你改的有问题了

第13楼　kidzgy	发表于 2009-08-05 05:46
中级用户　发帖 129　积分 262
我增补了msgbox folder后，对着没有双引号的运行，就弹出首末有双引号。可是，对着有首末双引号的运行，还是10楼的提示，原因是不是以lnk或url末尾结尾的。由此可见，问题是，怎么使VBS支持有双引号的快捷方式。 [ Last edited by kidzgy on 2009-8-6 at 08:20 ]

第14楼　slore	发表于 2009-08-05 07:45
铂金会员　发帖 2,478　积分 5,212
有引号的就不要再加引号了……

第15楼　kidzgy	发表于 2009-08-05 08:19
中级用户　发帖 129　积分 262
麻烦你按照5楼的代码，修正一下，贴个完整的好吗？因为我是新手，如果你贴出个修正好的完全代码，我仔细比对一下，或许我更能理解哪里出了问题，这样我也会成长得更快吧