XP中完美实现vista中快捷方式右键添加“打开文件位置”功能
电脑·网络 No Comments »将以下内容保存为 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
Read the rest of this entry »
