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

logogogo最新

QQ网站登录的RSA

大 | 中 | 小

2007/11/22 发表时间

17:41

1018

GreyHawk

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

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

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

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

　　先下载 nircmd ，

官方下载

在让nircmd出场展示自己神奇功的同时，我们必须先令其热一下身。将下载回来的压缩包解压，将其中的“nircmd.exe”拷贝到“C:\Windows\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\""】

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

右键添加“查找目标”
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\""】

收藏本文到网摘：