右键菜单添加“复制文件路径”和“查找目标”

来源:沙洲中的破船

在右键菜单添加”复制文件路径”功能

http://www.pconline.com.cn/pcedu/soft/gj/sys/0611/910265.html
出处:PConline[ 2006-11-23 09:27:10 ] 作者:阎皓的皓

有些时候,需要复制文件的完整路径。通常情况先要复制文件的所在路径,还要复制文件的名称。然后将这两部分合在一起,非常的麻烦(图1)。

也可以在地址栏使用自动实例功能来复制文件路径,不过也不够方便。

图1 获取文件地址的两种方法

其实可以通过一款名字为nircmd 的软件来实现一键复制,它是个小巧但很强大的命令行工具,这样获取文件路径就会方便很多。

先下载 nircmd ,然后解压到system32目录下,这样就安装完成。接下来需要建立一个注册表文件,其内容如下(沙洲破船):

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\copypath]
@="复制文件路径"

[HKEY_CLASSES_ROOT\*\shell\copypath\command]
@="nircmd.exe clipboard set \"%1\""

文件夹:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\copypath]
@="复制文件夹路径"

[HKEY_CLASSES_ROOT\Directory\shell\copypath\command]
@="nircmd.exe clipboard set \"%l\""

以后再获取文件完整路径的时候,在文件上按鼠标右键,就会看到多出一个“复制文件路径”选项(图2)(注:同样也适用于文件夹,在选择文件夹的时候就显示“复制文件夹路径”),选择这项之后就将文件完整路径进行复制,最后就可以粘贴所需要的地方。

图2 添加后的效果

右键添加“查找目标”
http://bbs.360safe.com/archiver/?tid-99058.html
作者:chenhui530

把下面代码保存为 FindFile.VBS 保存到 %systemroot%(这是什么,点击进入查看) 目录

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

沙洲破船 注2:原文有误,添加注册表处错误。保存下面内容为xxx.reg文件。(由“【”开始,“】”结束,不包含“【】”。)。

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\shell\FindFile]
@="查找目标(&F)"

[HKEY_CLASSES_ROOT\lnkfile\shell\FindFile\command]
@="\"C:\\WINDOWS\\system32\\WScript.exe\" \"C:\\WINDOWS\\FindFile.vbs\" \"%1\""

相关日志

抢楼还有机会... 抢座Rss 2.0或者 Trackback

  • a

    还是直接用《打开加加》比较好一点~~

发表评论