[系统相关] 批处理创建快捷方式

httplin

@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，为什么不能全部生成

hnfeng

粗略看，貌似是一个 ) 的位置和 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

czjt1234

do的()位置有问题