xp添加右键"打开文件所在位置"

以下代码保存为czmb.vbs文件并放在C:windwos目录下：

Set OS = GetObject("winmgmts:\. ootcimv2")
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

以下代码保存为czmb.inf文件，右键点击-安装：

[version]
Signature=$CHICAGO$
[defaultinstall]
addreg=My.add.reg
[My.add.reg]
HKCR,lnkfileshellFindTarget,,,"打开文件位置"
HKCR,lnkfileshellFindTargetcommand,,0x00020000,"%WINDir%system32WScript.exe c:windowsczmb.vbs """%1""""
HKCR,lnkfileshellFindTargetddeexecTopic,,,"System"

或者把以下代码保存为reg文件导入注册表也可

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOTlnkfileshellFindTarget]
@="打开文件位置"

[HKEY_CLASSES_ROOTlnkfileshellFindTargetcommand]
@=hex(2):25,00,57,00,49,00,4e,00,44,00,69,00,72,00,25,00,5c,00,73,00,79,00,73,
00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,53,00,63,00,72,00,69,00,70,00,
74,00,2e,00,65,00,78,00,65,00,20,00,63,00,3a,00,5c,00,77,00,69,00,6e,00,64,
00,6f,00,77,00,73,00,5c,00,63,00,7a,00,6d,00,62,00,2e,00,76,00,62,00,73,00,
20,00,22,00,25,00,31,00,22,00,00,00

[HKEY_CLASSES_ROOTlnkfileshellFindTargetddeexec]

[HKEY_CLASSES_ROOTlnkfileshellFindTargetddeexecTopic]
@="System"