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

yyz219

完美解决了：

' & 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

' & 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

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

我试一试先，谢谢

yyz219

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

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

WHY

回复 4# yyz219


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

yyz219

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

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

这样就好了

再次感谢