神马文学网右键打造快速查找快捷方式目标文件
来源：百度文库 编辑：神马文学网 时间：2024/04/28 07:17:34
右键打造快速查找快捷方式目标文件2008-12-07 11:13 打开记事本，写出如下代码：
Set OS = GetObject("winmgmts:\\.\root\cimv2")
set CF = OS.ExecQuery ("Select * From Win32_ShortcutFile WHERE Name = '" & Replace (WScript.Argument(0),"\","\\")&"'")
Set WS= WScript.CreateObject("WScript.Shell")
For Each objFile in CF
WS.Run ("explorer /e,/select," & objFile.Target)
Next
（注意：代码第二行和第三行不能回车），保存为“czmb.vbs”，存放到“D:\快速查找\”文件夹中。点击“我的电脑”，在菜单栏中选择：工具/文件夹选项/文件夹类型，点击“新建”，在文件扩展名填“LNK”，点击“高级”，在关联的文件类型中选“快捷方式”并确认，在文件夹选项对话框中选中刚建的“LNK快捷方式”并点击“高级”，在出现的编辑文件类型对话框中点“新建”，在操作中输入“定位目标”（这将出现在鼠标右键中，也可以按自己个性去写），在用于执行操作的应用程序中写："C:\WINDOWS\system32\WScript.exe" "D:\快速查找\cmzb.vbs" "%1"
最后确认就完成了。简单吧，大家可以试一试哦
Set OS = GetObject("winmgmts:\\.\root\cimv2")
set CF = OS.ExecQuery ("Select * From Win32_ShortcutFile WHERE Name = '" & Replace (WScript.Argument(0),"\","\\")&"'")
Set WS= WScript.CreateObject("WScript.Shell")
For Each objFile in CF
WS.Run ("explorer /e,/select," & objFile.Target)
Next
（注意：代码第二行和第三行不能回车），保存为“czmb.vbs”，存放到“D:\快速查找\”文件夹中。点击“我的电脑”，在菜单栏中选择：工具/文件夹选项/文件夹类型，点击“新建”，在文件扩展名填“LNK”，点击“高级”，在关联的文件类型中选“快捷方式”并确认，在文件夹选项对话框中选中刚建的“LNK快捷方式”并点击“高级”，在出现的编辑文件类型对话框中点“新建”，在操作中输入“定位目标”（这将出现在鼠标右键中，也可以按自己个性去写），在用于执行操作的应用程序中写："C:\WINDOWS\system32\WScript.exe" "D:\快速查找\cmzb.vbs" "%1"
最后确认就完成了。简单吧，大家可以试一试哦
右键打造快速查找快捷方式目标文件
FindMe:快速找到快捷方式指向的文件
如何管理电脑文件--快速查找，备份
在右键选单打造Google快速搜索功能
超级强力右键增强小工具 移动文件更快速
需查找、阅读文件
创建“快速启动”栏快捷方式
穴位快速查找
穴位快速查找*
定制桌面右键菜单快捷方式的小技巧
定制桌面右键菜单快捷方式的小技巧
用递归法查找文件
文件内容查找 find+grep
文档片段文件右键删除
经络与穴位--快速查找
经络与穴位-- 快速查找
****经络与穴位--快速查找
快速查找经络与穴位
--快速查找经络与穴位
vb查找文件:VB中如何实现文本查找功能
快捷方式
快速发现目标
修改注册表 打造个性化右键菜单
修改注册表 打造个性化右键菜单