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  ，选择安装，即可

右击任意一快捷方式即可看到 打开文件位置 选项。