批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]求修改批处理：创建快捷方式.bat ——到桌面，修改为到批处理目录，谢谢 [打印本页]

作者: yyz219 时间: 2022-12-14 18:34 标题: [已解决]求修改批处理：创建快捷方式.bat ——到桌面，修改为到批处理目录，谢谢

本帖最后由 yyz219 于 2022-12-14 19:18 编辑

完美解决了：

' & cls & CScript /nologo /e:vbscript "%~f0" "%~dp0" & exit
Set a = CreateObject("WScript.Shell")
Set b = a.CreateShortcut(WSH.Arguments(0) + "D盘使用情况.lnk")
b.TargetPath = "C:\Windows\System32\cmd.exe"
b.Arguments = "/C ""D:\1绿色软件\bat批处理\D盘使用情况 .bat"""
b.Save()
复制代码

*************************************************
原来的问题
求修改批处理：创建快捷方式.bat ——到桌面，修改为到批处理目录，谢谢
*************************************************
已有批处理，创建快捷方式.bat ——到桌面：

' & cls & CScript /nologo /e:vbscript "%~f0" & exit
Set a = CreateObject("WScript.Shell")
Set b = a.CreateShortcut(a.SpecialFolders("Desktop") & "\D盘使用情况.lnk")
b.TargetPath = "C:\Windows\System32\cmd.exe"
b.Arguments = "/C ""D:\1绿色软件\bat批处理\D盘使用情况 .bat"""
b.Save()
复制代码

**************************************
现在希望：创建快捷方式.bat ——到批处理所在目录，应该怎样？谢谢

作者: WHY 时间: 2022-12-14 18:56

' & cls & CScript /nologo /e:vbscript "%~f0" "%~dp0" & exit
Set a = CreateObject("WScript.Shell")
Set b = a.CreateShortcut(WSH.Arguments(0) + "D盘使用情况.lnk")
b.TargetPath = "C:\Windows\System32\cmd.exe"
b.Arguments = "/C ""D:\1绿色软件\bat批处理\D盘使用情况.bat"""
b.Save()
复制代码

作者: yyz219 时间: 2022-12-14 18:57

WHY 发表于 2022-12-14 18:56

我试一试先，谢谢

作者: yyz219 时间: 2022-12-14 19:04

WHY 发表于 2022-12-14 18:56

能够创建，但是，运行不了，不知道是怎么一回事

作者: WHY 时间: 2022-12-14 19:12

回复 4# yyz219

检查一下 "D:\1绿色软件\bat批处理\D盘使用情况 .bat"
.bat前面有空格？脚本里面没有加，你自己加上试试。

作者: yyz219 时间: 2022-12-14 19:13

WHY 发表于 2022-12-14 18:56

原因查到了：D:\1绿色软件\bat批处理\D盘使用情况.bat，少了一个空格，应该是：D:\1绿色软件\bat批处理\D盘使用情况 .bat

这样就好了

再次感谢

欢迎光临批处理之家 (http://bbs.bathome.net/)