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

来源：沙洲中的破船

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

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\""

鬼仔's Blog