WScript.Shell批处理创建当前目录程序快捷方式到桌面

使用 WScript.Shell 对象可以通过 VBS 脚本来创建快捷方式。这里是如何使用 VBS 脚本来创建当前目录下某个程序的快捷方式到桌面的步骤：

1. 创建 VBS 脚本：

   • 使用文本编辑器（如 Notepad）创建一个新的文本文件。
   • 将以下 VBS 脚本代码写入文件中：
     Vbscript

     深色版本

     1Set objShell = CreateObject("WScript.Shell")
     2Set objShortcut = objShell.CreateShortcut("%userprofile%\Desktop\ProgramShortcut.lnk")
     3objShortcut.TargetPath = WScript.ScriptFullName
     4objShortcut.WorkingDirectory = WScript.ScriptFullName
     5objShortcut.Save

2. echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
   echo sLinkFile = "%HOMEDRIVE%%HOMEPATH%\Desktop\MyModelEditor.lnk" >> CreateShortcut.vbs
   echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
   echo oLink.TargetPath = "%~dp0%\RCSPlatformV4.0\LatRcs.ModelEditor.exe" >> CreateShortcut.vbs
   echo oLink.Arguments = "" >> CreateShortcut.vbs
   echo oLink.Save >> CreateShortcut.vbs
   cscript CreateShortcut.vbs
   
   del /f /q CreateShortcut.vbs
   pause

3. 保存 VBS 脚本：

   • 保存文件，例如命名为 create_shortcut.vbs。

4. 运行 VBS 脚本：

   • 双击 VBS 脚本文件以运行它，或者在命令提示符下运行它。

注意事项

• 当前目录：

  • 请注意，上面的脚本会创建一个指向 VBS 脚本本身的快捷方式。如果您希望创建指向当前目录下某个特定程序的快捷方式，您需要更改 objShortcut.TargetPath 的值。

• 更改 TargetPath：

  • 如果您希望创建指向当前目录下某个程序的快捷方式，例如 C:\CurrentDirectory\Program.exe，您需要将 objShortcut.TargetPath 更改为该程序的完整路径。

• WorkingDirectory：

  • objShortcut.WorkingDirectory 设置了启动程序时的工作目录。如果程序需要在当前目录下运行，可以保留此设置；否则，您可以将其更改为程序所需的工作目录。

示例 VBS 脚本

以下是一个示例 VBS 脚本，它会在桌面上创建一个指向当前目录下名为 Program.exe 的程序的快捷方式：

Vbscript

深色版本

1Set objShell = CreateObject("WScript.Shell")
2Set objShortcut = objShell.CreateShortcut("%userprofile%\Desktop\ProgramShortcut.lnk")
3objShortcut.TargetPath = WScript.ScriptFullName
4objShortcut.WorkingDirectory = WScript.ScriptFullName
5objShortcut.Arguments = "/arg"  ' 如果需要传递参数给程序，可以在这里添加
6objShortcut.Description = "Description of the shortcut."  ' 描述
7objShortcut.IconLocation = "C:\Path\To\Icon.ico"  ' 图标位置
8objShortcut.Save

在这个示例中，您需要将 objShortcut.TargetPath 更改为实际程序的路径，例如 C:\CurrentDirectory\Program.exe，并将 objShortcut.WorkingDirectory 更改为该程序所在的目录。

修改 TargetPath

为了指向当前目录下的程序，您可以修改 objShortcut.TargetPath 如下：

Vbscript

深色版本

1Set objShell = CreateObject("WScript.Shell")
2Set objShortcut = objShell.CreateShortcut("%userprofile%\Desktop\ProgramShortcut.lnk")
3
4' 获取当前脚本所在目录
5currentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
6programPath = currentDir & "Program.exe"
7
8objShortcut.TargetPath = programPath
9objShortcut.WorkingDirectory = currentDir
10objShortcut.Save

在这个修改后的示例中，currentDir 变量用于获取当前脚本所在的目录，然后将 Program.exe 的完整路径赋值给 objShortcut.TargetPath。

运行 VBS 脚本

• 双击 VBS 脚本文件以运行它。
• 或者，在命令提示符下运行它。