XP中完美实现vista中快捷方式右键添加“打开文件位置”功能
电脑·网络 十二月 13th, 2008将以下内容保存为 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,,0×00020000,”%WINDir%\system32\WScript.exe c:\windows\czmb.vbs “”"%1″”"”
HKCR,lnkfile\shell\查找目标\ddeexec\Topic,,,”System”
右击 打开文件位置.inf ，选择安装，即可
右击任意一快捷方式即可看到 打开文件位置 选项。
