- @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")
复制代码
|