[文件操作] 批处理如何将一个文件的快捷方式放入windows启动菜单中

@echo off
for %%a in ("D:\Alist\alist.vbs" "D:\Alist\rclone\rclone.vbs") do (
	call :CreateShort "%%~a" "%AppData%\Microsoft\Windows\Start Menu\Programs\Startup\%%~na"
)
goto :eof

rem "http://www.bathome.net/redirect.php?goto=findpost&ptid=11050&pid=70331"
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码

@echo off
set f1="D:\Alist\alist.vbs"
set f2="D:\Alist\rclone\rclone.vbs"
for  %%i in (%f1% %f2%) do (call :lnk "%%~i")
exit

:lnk	
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""StartUp"") & ""\%~n1.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码