自制 Win+R 增强版: 打开目录或者运行程序

在SendTo目录下新建文件 "运行(Win+R).vbs"，

 

 

WinXPC:/Documents and Settings/用户名/SendTo

Win7C:/user/用户名/AppData/Roaming/Microsoft/Windows/SendTo/ 

 

 

复制以下内容到文件。代码来源  http://zhidao.baidu.com/question/255646988.html

Const strDestination = "D:/Path"Set objArgs = WScript.ArgumentsSet WshShell = WScript.CreateObject("WScript.Shell")For i = 0 to objArgs.Count - 1   '' Loop through all arguments.  strShortCut = strDestination & "/" & GetAName(objArgs(i)) & ".lnk"  set oShellLink = WshShell.CreateShortcut(strShortCut)  oShellLink.TargetPath = objArgs(i)  oShellLink.WindowStyle = 1  ''oShellLink.Description = "Created By Ivan Chen"  oShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), "/"))  oShellLink.SaveNextFunction GetAName(DriveSpec)   Dim fso   Set fso = CreateObject("Scripting.FileSystemObject")   GetAName = fso.GetBaseName(DriveSpec)End Function''end 

将第一行 “D:/Path” 修改为你的路径，并将其加入到系统环境变量 Path 中（重要）。

现在让我们来试试， 先在任意一个目录或者可执行程序上点击右键，选择“发送到” -->

“运行(Win+R).vbs”。ok，现在已经设置好了，快捷名称与“D:/Path”目录下快捷方式名称一致。

让我们来试一试，按下Win+R键运行， 输入快捷名称即可打开目录或者运行程序。

 

注意：

如果快捷名称中包含有 . 符号的话，是无法启动程序的，请修改 “D:/Path”目录下的快捷方式名称，将其中的 . 符号去除

如果不喜欢自己动手的话，推荐具有相同功能的国产软件 ALTRun。