另类解决快捷方式太多的困扰

值友们，组了新机，你是否已经开始为快捷方式过多、桌面太乱、程序菜单项繁多找程序麻烦而苦恼？

下面我就用一种另类的方法解决你的苦恼。

如果你看了下面的示例，发现不适合你的使用习惯，那就可以直接到评论区探讨你喜欢的方式了，因为具体实现稍微有点麻烦，可能会浪费你的时间。

使用示例，比如我想运行photoshop

传统的方法一般是：

1、（普通方法）开始-》所有程序-》Adobe Photoshop XX》单击开始；

2、（文艺方法）从桌面上找到photoshop图标，双击开始；

（没图。。）

3、（xx方法）打开计算机-》双击photoshop安装磁盘-》找到目录-》（此处省略1-100步）-》双击Photoshop.exe开始。

此处可以发现如果用普通方法始终无法回避从很多程序项中找快捷方式的麻烦，ps或许还比较容易，word或者其他的就比较麻烦；文艺方法也有局限性，就是常用程序放在桌面没问题，如果不常用的程序放在桌面，桌面就会很乱，从而导致类似于普通方法的麻烦；xx方法我直接就不说了，能用此种方法的值友们，你们对文件管理器那是真爱啊。

而我要介绍的方法是：

按运行快捷键Win+R-》输入ps-》回车运行。

具体实现步骤：

1、打开记事本，复制下列代码：

''===========================================================

'' 文件名：

'' 作者：xin344

'' 启用日期：2013-6-16

'' （放置位置win7：%APPDATA%MicrosoftWindowsSendTo WinXP：暂时没用到不知道放哪= =~）

''=============================================================

Const strDestination = "F:~文件夹shortcutsw7"

''此位置是目标文件夹位置，可修改。

Set objArgs = WScript.Arguments

Set WshShell = WScript.CreateObject("WScript.Shell")

For i = 0 to objArgs.Count - 1   '' 循环所有参数，单个文件循环一次。

  dim input

  input = inputbox("当前的名字是"& GetAName(objArgs(i)) ,"请输入需要的名字")''不太会用vbs，所以偷懒没做输入检测，请输入合乎规定的文件名，不需要带扩展名。见谅~

  strShortCut = strDestination & "" & input & ".lnk"

  set oShellLink = WshShell.CreateShortcut(strShortCut)

  oShellLink.TargetPath = objArgs(i)

  oShellLink.WindowStyle = 1

  oShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), ""))

  oShellLink.Save

Next

Function GetAName(DriveSpec)

   Dim fso

   Set fso = CreateObject("Scripting.FileSystemObject")

   GetAName = fso.GetFileName(DriveSpec)

End Function

''end

然后另存为winr.vbs，注意不要存为winr.vbs.txt。

2、win+r组合键，输入shell:sendto回车，把刚才做好的文件放到sendto文件夹中。

3、建立一个放置快捷方式的文件夹，位置在上面文件处的Const strDestination = "F:~文件夹shortcutsw7"

4、右键计算机-》属性-》高级系统设置-》高级-》环境变量-》系统变量-》双击path-》在变量值的最后面加上“;F:~文件夹shortcutsw7”，此处是你建立存放快捷方式的文件夹。

5、重新启动，以后遇到你想要快速启动的软件，就点击右键-》发送到-》winr.vbs-》填写好快捷方式名，比如说photoshop，就写ps，最好用你能记住而且能代表软件特性的名字。

6、如何使用：按win+r快捷键，输入你需要软件的简略名，比如ps，回车就可以打开了。

欢迎探讨其它更好的实现方式，请给我评论留言，谢谢。

PostScript. 我不太会用VBS，实现功能比较简陋，见谅。

作者声明本文无利益相关，欢迎值友理性交流，和谐讨论～