SiS001! Board - [第一会所关闭注册]

标题: [交流] XP中完美实现vista中快捷方式右键添加“打开文件位置”功能 [打印本页]

作者: 13820803397 时间: 2008-5-6 14:06 标题: XP中完美实现vista中快捷方式右键添加“打开文件位置”功能

将以下内容保存为 czmb.vbs 并复制到 c:\windows 目录下
Set OS = GetObject("winmgmts:\\.\root\cimv2")
Set CF = OS.ExecQuery("Select * From Win32_ShortcutFile WHERE Name = '" & Replace(WScript.Arguments(0),"\","\\") & "'")
Set WS = WScript.CreateObject("WScript.Shell")
For Each objFile in CF
WS.Run ("explorer /e,/select," & objFile.Target)
Next

将以下保存为打开文件位置.inf
[version]
Signature=$CHICAGO$
[defaultinstall]
addreg=My.add.reg
[My.add.reg]
HKCR,lnkfile\shell\查找目标,,,"打开文件位置"
HKCR,lnkfile\shell\查找目标\command,,0x00020000,"%WINDir%\system32\WScript.exe c:\windows\czmb.vbs """%1""""
HKCR,lnkfile\shell\查找目标\ddeexec\Topic,,,"System"

右击打开文件位置.inf ，选择安装，即可
右击任意一快捷方式即可看到打开文件位置选项。
本人亲测在XP和2003下通过!!!

作者: huangwx 时间: 2008-5-6 14:46

试了,不行啊,右键是有了,但是打不开,它会题示用什么程序运行,而不是打开文件夹.请楼主复查一下.

欢迎光临 SiS001! Board - [第一会所关闭注册] (http://67.220.92.12/bbs1/)