显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk


显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk

viewplaincopy toclipboardprint?
  1. '==========================================================================
  2. '
  3. 'NAME:ShowLnkTarget.vbs
  4. '
  5. 'COMMENT:快速显示“快捷方式”中“目标”所在的位置,并把焦点停留在目标上。
  6. '========================================================================
  7. '在“开始→运行”里输入“regsvr32WSHom.Ocx”(不包括双引号)
  8. '==========================================================================
  9. '安装说明:
  10. '1.放在任意目录中,直接双击脚本,即可完成安装。
  11. '2.安装好之后,右键单击快捷方式,会出现一项“显示目标位置”。
  12. '3.如果移动了脚本的位置,请再安装一次。
  13. '4.脚本名字可以改变。改好之后,请再安装一次。
  14. '==========================================================================
  15. '卸载:下列代码保存为REG
  16. 'REGEDIT4
  17. '
  18. '[-HKEY_CLASSES_ROOTlnkfileshellShowLnkTarget]
  19. '
  20. '
  21. '==========================================================================
  22. OptionExplicit
  23. DimobjArgs,WshShell
  24. SetobjArgs=WScript.Arguments
  25. SetWshShell=WScript.CreateObject("WScript.Shell")
  26. IfobjArgs.Count=1Then
  27. ShowLnkTarget
  28. ElseIfobjArgs.Count=0Then
  29. Setup
  30. EndIf
  31. '==========================================================================
  32. SubSetup
  33. DimQM
  34. QM=""""
  35. WshShell.RegWrite"HKCRlnkfileshellShowLnkTarget","显示目标位置"
  36. WshShell.RegWrite"HKCRlnkfileshellShowLnkTargetcommand",_
  37. QM&WScript.FullName&QM&""&_
  38. QM&WScript.ScriptFullName&QM&""&_
  39. QM&"%1"&QM
  40. MsgBox"安装完毕!",64,WScript.ScriptName
  41. EndSub
  42. '---------------------------------------------------------------------------
  43. SubShowLnkTarget
  44. Dimlnkname,strComputer,objWMIService,colFiles,objFile
  45. lnkname=Replace(objArgs(0),"","\")
  46. strComputer="."
  47. SetobjWMIService=GetObject_
  48. ("winmgmts:\"&strComputer&"rootcimv2")
  49. SetcolFiles=objWMIService.ExecQuery_
  50. ("Select*FromWin32_ShortcutFileWHEREName="&"'"&lnkname&"'")
  51. ForEachobjFileincolFiles
  52. WshShell.Run("explorer/n,/select,"&objFile.Target)
  53. Next
  54. EndSub

from:http://www.yongfa365.com/Item/ShowLnkTarget.vbs.html

  

爱华网本文地址 » http://www.413yy.cn/a/25101017/357165.html

更多阅读

快捷方式扩展名 如何显示后缀名

快捷方式扩展名——简介快捷方式扩展名为.lnk,顾名思义,lnk文件是用于指向其他文件的一种文件,双击打开这个快捷方式文件就会打开那个定义的文件,这给调用程序带来很多方便之处。又因为这个快捷方式的文件本身很小,所以被广泛应用于操作

桌面快捷方式不见了 桌面上快捷方式不见了

桌面快捷方式不见了——简介有时候我们的桌面快捷方式会忽然不见了,这可能是误删、系统中毒、没有勾选”显示桌面图标“、Shell值没有设置”explorer.exe“等造成的,可根据以下步骤一一排查,看是什么原因造成的,并进行更正。桌面快捷方

教你win7宽带连接怎么创建快捷方式 创建快捷方式

教你win7宽带连接怎么创建快捷方式——简介安装上了win7 操作系统,一系列问题来了,比如说建立win7系统的宽带连接,以及在桌面上建立宽带连接的快捷方式等等!目前就发现这些问题。经过一翻摸索,终于知道了怎么来设置win7宽带连接,以及建立

如何解决电脑快捷方式图标显示异常 桌面快捷方式图标异常

如何解决电脑快捷方式图标显示异常——简介 在使用电脑过程中,我们有时候会遇到某些软件快捷方式图标变成未知文件图标,显示不正常的情况。这种情况在XP和Win7下都可能出现,排除软件被卸载导致快捷方式图标失效,这个问题往往是图标缓存

怎样让快捷方式显示小箭头 去快捷方式小箭头

很多时候,我们重新完系统都会发现桌面快捷方式的小箭头不见了,当然有些人觉得没有小箭头是比较好的,但是有些人就需要到小箭头快捷方式了,那出现这种没有小箭头的情况要怎样解决呢,下面我们一起看看是怎样解决的吧!怎样让快捷方式显示

声明:《显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk》为网友岌岌可危分享!如侵犯到您的合法权益请联系我们删除