论文部分内容阅读
在Windows XP中有这么一个小技巧：用鼠标右击任意快捷方式图标，选择“属性”，然后单击“查找目标”按钮，即可打开快捷方式所指文件的文件夹，并自动定位到这个目标文件上。这个技巧虽然快捷，但也要好几步才能完成（而且还要打开属性对话框），其实可以将这一操作直接加到右键菜单中，查看起来就更方便了。
第1步 打开记事本程序编辑如下内容（如果你懒得输入这一步及下一步的代码，可下载http://work.newhua.com/cfan/200716/FS.rar，其中包含了我制作好的这两个文件。）：
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
保存为“czmb.vbs”，并放到“C:\windows\”文件夹下。
第2步 新建一个文本文件，输入如下内容：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\lnkfile\shell]
@=""
[HKEY_CLASSES_ROOT\lnkfile\shell\czmb]
@="查找目标"
[HKEY_CLASSES_ROOT\lnkfile\shell\czmb\command]
@="\"C:\\WINDOWS\\system32\\WScript.exe\" \"C:\\windows\\czmb.vbs\" \"%1\""
另存为“查找目标.reg”，双击这个文件将它导入到注册表中。
以后只要右击某一快捷方式，选择“查找目标”项，即可快速定位到它指向的文件夹了。
第1步 打开记事本程序编辑如下内容（如果你懒得输入这一步及下一步的代码，可下载http://work.newhua.com/cfan/200716/FS.rar，其中包含了我制作好的这两个文件。）：
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
保存为“czmb.vbs”，并放到“C:\windows\”文件夹下。
第2步 新建一个文本文件，输入如下内容：
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\lnkfile\shell]
@=""
[HKEY_CLASSES_ROOT\lnkfile\shell\czmb]
@="查找目标"
[HKEY_CLASSES_ROOT\lnkfile\shell\czmb\command]
@="\"C:\\WINDOWS\\system32\\WScript.exe\" \"C:\\windows\\czmb.vbs\" \"%1\""
另存为“查找目标.reg”，双击这个文件将它导入到注册表中。
以后只要右击某一快捷方式，选择“查找目标”项，即可快速定位到它指向的文件夹了。