[文件操作] [已解决]帮忙修改批处理：创建快捷方式.bat 谢谢

yyz219

完美解决了：

' & 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()
复制代码

***************************************************
原来的问题：

目的：
1.运行批处理以后，在桌面生成“D盘使用情况.lnk”文件
2.“D盘使用情况.lnk”文件---属性---快捷方式---目标：C:\Windows\System32\cmd.exe /c "D:\1绿色软件\bat批处理\D盘使用情况 .bat"【为了方便锁定到  任务栏】
******************************************************************************************************************
现有一个批处理，创建快捷方式.bat：
'&cls&cscript -nologo -e:vbscript "%~fs0" &exit
Set a=CreateObject("WScript.Shell")
Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\D盘使用情况.lnk")
b.TargetPath="C:\Windows\System32\cmd.exe /C"
b.Arguments="""D:\1绿色软件\bat批处理\D盘使用情况 .bat"""
b.WorkingDirectory="C:\Windows\system32"
b.Save
**************************************************
运行以后
“D盘使用情况.lnk”文件---属性---快捷方式---目标，变为："C:\Windows\System32\cmd.exe \C" "D:\1绿色软件\bat批处理\D盘使用情况 .bat"
*****************************************************************************
麻烦老师帮我修改一下，谢谢

yyz219

czjt1234 发表于 2022-12-12 07:34

    非常完美，再次感谢

yyz219

czjt1234 发表于 2022-12-12 07:34

    非常感谢

czjt1234

' & 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()
复制代码