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

CAIT

在用rclone加载alist网盘过程中，需要将D:\Alist\alist.vbs和D:\Alist\rclone\rclone.vbs两个文件的快捷方式加入windows启动菜单%AppData%\Microsoft\Windows\Start Menu\Programs\Startup中，手动拖入能正常运行，现在想用批处理完成，不知应该如何写？感谢！

77七

1. @echo off
   
2. for %%a in ("D:\Alist\alist.vbs" "D:\Alist\rclone\rclone.vbs") do (
   
3.         call :CreateShort "%%~a" "%AppData%\Microsoft\Windows\Start Menu\Programs\Startup\%%~na"
   
4. )
   
5. goto :eof
   
6. 
   
7. rem "http://www.bathome.net/redirect.php?goto=findpost&ptid=11050&pid=70331"
   
8. :CreateShort
   
9. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

复制代码

ppll2030

1. @echo off
   
2. set f1="D:\Alist\alist.vbs"
   
3. set f2="D:\Alist\rclone\rclone.vbs"
   
4. for  %%i in (%f1% %f2%) do (call :lnk "%%~i")
   
5. exit
   
6. 
   
7. :lnk       
   
8. 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")
   

复制代码

CAIT

回复 3# ppll2030


    实测管用！非常感谢！！