批量创建快捷方式

wenbieba

1文件夹下有n个文件
用批处理如何创建1文件夹及n个文件快捷方式到开始菜单

Bruce65

可以使用 powershell 脚本，但使用“nircmd.exe”更容易：

nircmd.exe shortcut "c:\windows\explorer.exe" "~$folder.programs$\我的程序" "文件资源管理器"
nircmd.exe shortcut "c:\windows\system32\notepad.exe" "~$folder.programs$\我的程序" "Notepad"
nircmd.exe shortcut "c:\program files\winrar\winrar.exe" "~$folder.programs$\我的程序" "WinRAR"

zdlzj

如何程序是绿色版的，路径不固定呢？怎么写？

3416510931

:Link
::创建快捷方式所在文件夹
mkdir "C:\ProgramData\Microsoft\Windows\Start Menu\Program Files"
::设置程序或文件的路径（必选）
set Program=%~dp0CPix.exe
::设置启动参数（可选）
set  Arguments=
::设置快捷方式名称（必选）
set LnkName=CPix
::设置程序的工作路径，一般为程序主目录，此项若留空，脚本将自行分析路径
set WorkDir=
::图标
set Desc=%~dp0CPix.exe, 1
if not defined WorkDir call:GetWorkDir "%Program%"
(echo Set WshShell = WScript.CreateObject("WScript.Shell"^)
::快捷方式路径
echo set oShellLink = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Program Files\%LnkName%.lnk"^)
echo oShellLink.TargetPath="%Program%"
echo oShellLink.WorkingDirectory="%WorkDir%"
echo oShellLink.WindowStyle=1
echo oShellLink.Description="%Desc%"
echo oShellLink.Save)>makelnk.vbs
echo 创建保存快捷方式
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir:~,-1%
goto :eof

skywalkerl

感谢分享，学习了~

tanglf

过来学习

wfg1555

一下子创建全部，也方便

zhanghao0242

学习一下

yc2428

学习了

cfc1680

学习了，感谢

wjggo6210

学习了

wenbieba

3416510931 发表于 2023-10-7 07:47
:Link
::创建快捷方式所在文件夹
mkdir "C:\ProgramData\Microsoft\Windows\Start Menu\Program Files"

set LnkName=CPix
set Desc=%~dp0CPix.exe, 1
文件夹下所有的文件都要写一次吗
如：set LnkName=1
set Desc=%~dp01.exe, 1
set LnkName=2
set Desc=%~dp02.exe, 1
…

3416510931

wenbieba 发表于 2023-10-7 16:02
set LnkName=CPix
set Desc=%~dp0CPix.exe, 1
文件夹下所有的文件都要写一次吗

这是针对单个文件创建的，没加一个就要整体复制修改一份

咕哩咕噜

这几个方法都不错！

rbwrbw

没意思，不过还是感谢！！