[交流] 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下通过!!!

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