无忧启动论坛

标题: 创建当前文件夹的exe的快捷方式去桌面 [打印本页]

作者: j2rong 时间: 7 小时前
标题: 创建当前文件夹的exe的快捷方式去桌面
有没有什么好用的批处理方式

作者: cls822001 时间: 6 小时前
本帖最后由 cls822001 于 2025-11-22 10:10 编辑

NSIS 脚本

!include "FileFunc.nsh"
OutFile 遍历当前目录生成快捷方式.exe
Icon F:\Tools\启动脚本\set.ico
SilentInstall silent
Section "创建桌面快捷方式"
SetOutPath "$EXEDIR"
StrCpy $0 "$EXEDIR"
StrCpy $3 "$EXEFILE"
; 开始查找EXE文件
FindFirst $1 $2 "$0\*.exe"
loop:
StrCmp $2 "" done ; 如果找不到文件则跳转到done
; 排除安装程序自身
StrCmp $2 "$3" skip ; 如果文件名匹配则跳过
StrCmp $2 "Setup.exe" skip
StrCmp $2 "Installer.exe" skip
StrCmp $2 "安装程序.exe" skip
StrCpy $4 $2 -4 ;快捷方式去掉exe后缀
; 创建桌面快捷方式
CreateShortCut "$DESKTOP\$4.lnk" "$0\$2" "" "$0\$2" 0
DetailPrint "已创建桌面快捷方式: $2"
skip:
FindNext $1 $2
Goto loop
done:
FindClose $1
SectionEnd

复制代码

作者: wn168cn@163.com 时间: 6 小时前
支持2#原创

作者: cls822001 时间: 6 小时前
本帖最后由 cls822001 于 2025-11-22 10:20 编辑

第二版 nsis

!include "FileFunc.nsh"
OutFile 一键桌面快捷方式.exe
Icon F:\Tools\启动脚本\set.ico
SilentInstall silent
Section "创建桌面快捷方式"
SetOutPath "$EXEDIR"
; 获取当前目录和目录名
StrCpy $0 "$EXEDIR"
; 获取目录名称
${GetParent} "$0" $R0 ; 获取父目录路径
${GetFileName} "$0" $R1 ; 获取当前目录名
; 如果GetFileName获取失败，使用其他方法
StrCmp $R1 "" 0 +3
StrCpy $R1 "我的程序" ; 默认名称
Goto create_shortcuts
; 开始查找EXE文件
FindFirst $1 $2 "$0\*.exe"
create_shortcuts:
StrCmp $2 "" done
loop:
StrCmp $2 "" done
; 排除安装程序自身
StrCmp $2 "$EXEFILE" skip
; 使用目录名作为快捷方式名称
CreateShortCut "$DESKTOP\$R1.lnk" "$0\$2" "" "$0\$2" 0
DetailPrint "已创建桌面快捷方式: $R1"
Goto done ; 只创建一个快捷方式
skip:
FindNext $1 $2
Goto loop
done:
FindClose $1
SectionEnd

复制代码

作者: yyz2191958 时间: 6 小时前

cls822001 发表于 2025-11-22 09:58
NSIS 脚本

助人为乐

作者: smile_z 时间: 5 小时前
感谢分享

作者: 不点 时间: 5 小时前
以上方法貌似要用到（微软之外的）外部软件。

如果使用微软自带的方法，大致有两种，一种是 powershell 方法，另一种是 VBS 方法。前者不需要创建 .vbs 就能实现。后者需要创建 .vbs，然后运行 .vbs 即可。前者的缺点是，依赖 powershell，而 WinXP 没有 powershell，而且即使是 Win11，在 Win11 的 WinPE 下，也可能阉割掉了 powershell。所以，powershell 方法尽管很简捷，但却存在失败场景。

而 VBS 脚本的方法，虽然稍走弯路，但普适性强，基本不会失败。

请自行搜索相关方法和代码。建议用微软的 bing 来搜。

作者: 燕飞龙 时间: 5 小时前
感谢分享

作者: j2rong 时间: 5 小时前

cls822001 发表于 2025-11-22 10:17
第二版 nsis

用不了，是bat吗？比方说我是 100.exe

作者: cls822001 时间: 5 小时前

j2rong 发表于 2025-11-22 11:26
用不了，是bat吗？比方说我是 100.exe

nsis 安装脚本可以编译成exe运行

作者: luntaner 时间: 5 小时前
学习了之前都是手动创建的

作者: j2rong 时间: 4 小时前

cls822001 发表于 2025-11-22 11:29
nsis 安装脚本可以编译成exe运行

如果我想指定某个exe名字要怎么改

作者: cls822001 时间: 4 小时前

j2rong 发表于 2025-11-22 11:39
如果我想指定某个exe名字要怎么改

排除那些就好了第二版代码用文件夹名做快捷方式就是遍历所有EXE 要单个更简单
SetShellVarContext all
CreateShortCut "$DESKTOP\显示器工具.lnk" "$EXEDIR\显示器工具.exe"

作者: 倒垃圾的歌者 时间: 4 小时前
本帖最后由倒垃圾的歌者于 2025-11-22 16:09 编辑

两种方法

批处理调用VBScript（创建文件夹快捷方式）

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%UserProfile%\Desktop\快捷方式名字.lnk""):b.TargetPath=""文件夹路径"":b.WorkingDirectory=""文件夹路径"":b.Save:close")

复制代码

批处理调用PowerShell（创建文件夹快捷方式）

powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%UserProfile%\Desktop\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径'; $s.WorkingDirectory = '文件夹路径'; $s.Save()"

复制代码

注意：TargetPath对应快捷方式中的目标，WorkingDirectory对应起始位置，如果不是创建文件夹快捷方式该改为文件路径\XXX.exe

即

批处理调用VBScript（创建exe文件快捷方式）

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%UserProfile%\Desktop\快捷方式名字.lnk""):b.TargetPath=""文件夹路径\XXX.exe"":b.WorkingDirectory=""文件夹路径"":b.Save:close")

复制代码

批处理调用PowerShell（创建exe文件快捷方式）

powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%UserProfile%\Desktop\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径\XXX.exe'; $s.WorkingDirectory = '文件夹路径'; $s.Save()"

复制代码

由于桌面文件夹路径可以更改，所以%UserProfile%\Desktop可能不是正确路径

所以可以改为

批处理调用VBScript（创建文件夹快捷方式）

for /f "skip=2 tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set "My-Desktop=%%b"
echo 当前用户桌面的路径为%My-Desktop%
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%My-Desktop%\快捷方式名字.lnk""):b.TargetPath=""文件夹路径"":b.WorkingDirectory=""文件夹路径"":b.Save:close")

复制代码

批处理调用VBScript（创建exe文件快捷方式）

for /f "skip=2 tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set "My-Desktop=%%b"
echo 当前用户桌面的路径为%My-Desktop%
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%My-Desktop%\快捷方式名字.lnk""):b.TargetPath=""文件夹路径\XXX.exe"":b.WorkingDirectory=""文件夹路径"":b.Save:close")

复制代码

批处理调用PowerShell（创建文件夹快捷方式）

for /f "skip=2 tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set "My-Desktop=%%b"
echo 当前用户桌面的路径为%My-Desktop%
powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%My-Desktop%\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径'; $s.WorkingDirectory = '文件夹路径'; $s.Save()"

复制代码

批处理调用PowerShell（创建exe文件快捷方式）

for /f "skip=2 tokens=2*" %%a in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Desktop') do set "My-Desktop=%%b"
echo 当前用户桌面的路径为%My-Desktop%
powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%My-Desktop%\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径\XXX.exe'; $s.WorkingDirectory = '文件夹路径'; $s.Save()"

复制代码

作者: guong 时间: 3 小时前

倒垃圾的歌者发表于 2025-11-22 12:31
两种方法

批处理调用VBScript（创建文件夹快捷方式）

谢谢分享！

作者: PCHH 时间: 1 小时前
感谢分享

作者: wwwlhp 时间: 1 小时前
多谢分享！！！

作者: denisz 时间: 1 小时前
学习了，等用的时候来

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)