批处理之家 - Powered by Discuz! Board

标题: [系统相关] 批处理创建快捷方式 [打印本页]

作者: httplin 时间: 2022-11-24 11:59 标题: 批处理创建快捷方式

@echo off

setlocal EnableDelayedExpansion
for /f "delims=: tokens=1,*" %%a in (1.txt) do (
set "SrcFile=C:\Program Files\Google\Chrome\Application\chrome.exe"
set "Args= ---profile-directory=%%a"
set "LnkFile=%%a.lnk"
call :CreateShort "!SrcFile!" "!Args!" "!LnkFile!"
pause & goto :eof
::Arguments              目标程序参数
::Description            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
)
复制代码

请大神帮下忙，为什么读取文本，文本内容1，2，3每行一个数字，但是只能生成一个1，为什么不能全部生成

作者: czjt1234 时间: 2022-11-24 15:17

本帖最后由 czjt1234 于 2022-11-24 15:19 编辑

do的()位置有问题

作者: hnfeng 时间: 2022-11-25 08:58

本帖最后由 hnfeng 于 2022-11-25 09:02 编辑

粗略看，貌似是一个 ) 的位置和 goto :eof 的位置有问题，请尝试一下：

........
call :CreateShort "!SrcFile!" "!Args!" "!LnkFile!"
)
pause & exit

........
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""DeskTop"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
goto :eof

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

Powered by Discuz! 7.2