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

来源：沙洲中的破船

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

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