创建当前文件夹的exe的快捷方式去桌面

j2rong

有没有什么好用的批处理方式

cls822001

NSIS 脚本

1. !include "FileFunc.nsh"
   
2. 
   
3. 
   
4. OutFile 遍历当前目录生成快捷方式.exe
   
5. Icon F:\Tools\启动脚本\set.ico
   
6. SilentInstall silent
   
7. 
   
8. Section "创建桌面快捷方式"
   
9.                 SetOutPath "$EXEDIR"
   
10.                
    
11.     StrCpy $0 "$EXEDIR"  
    
12. 
    
13.     StrCpy $3 "$EXEFILE"
    
14. 
    
15.     ; 开始查找EXE文件
    
16.     FindFirst $1 $2 "$0\*.exe"
    
17. 
    
18.     loop:
    
19.         StrCmp $2 "" done  ; 如果找不到文件则跳转到done
    
20. 
    
21.         ; 排除安装程序自身
    
22.         StrCmp $2 "$3" skip  ; 如果文件名匹配则跳过
    
23.         StrCmp $2 "Setup.exe" skip
    
24.         StrCmp $2 "Installer.exe" skip
    
25.         StrCmp $2 "安装程序.exe" skip
    
26.         StrCpy $4 $2 -4 ;快捷方式去掉exe后缀
    
27.         ; 创建桌面快捷方式
    
28.         CreateShortCut "$DESKTOP\$4.lnk" "$0\$2" "" "$0\$2" 0
    
29.         DetailPrint "已创建桌面快捷方式: $2"
    
30. 
    
31.         skip:
    
32.         FindNext $1 $2
    
33.         Goto loop
    
34. 
    
35.     done:
    
36.         FindClose $1
    
37. SectionEnd

复制代码

wn168cn@163.com

支持2#原创

cls822001

第二版 nsis

1. !include "FileFunc.nsh"
   
2. 
   
3. 
   
4. OutFile 一键桌面快捷方式.exe
   
5. Icon F:\Tools\启动脚本\set.ico
   
6. SilentInstall silent
   
7. 
   
8. Section "创建桌面快捷方式"
   
9.                 SetOutPath "$EXEDIR"
   
10.     ; 获取当前目录和目录名
    
11.     StrCpy $0 "$EXEDIR"
    
12. 
    
13.     ; 获取目录名称
    
14.     ${GetParent} "$0" $R0    ; 获取父目录路径
    
15.     ${GetFileName} "$0" $R1  ; 获取当前目录名
    
16. 
    
17.     ; 如果GetFileName获取失败，使用其他方法
    
18.     StrCmp $R1 "" 0 +3
    
19.     StrCpy $R1 "我的程序"  ; 默认名称
    
20.     Goto create_shortcuts
    
21. 
    
22.     ; 开始查找EXE文件
    
23.     FindFirst $1 $2 "$0\*.exe"
    
24. 
    
25.     create_shortcuts:
    
26.     StrCmp $2 "" done
    
27. 
    
28.     loop:
    
29.         StrCmp $2 "" done
    
30. 
    
31.         ; 排除安装程序自身
    
32.         StrCmp $2 "$EXEFILE" skip
    
33. 
    
34.         ; 使用目录名作为快捷方式名称
    
35.         CreateShortCut "$DESKTOP\$R1.lnk" "$0\$2" "" "$0\$2" 0
    
36.         DetailPrint "已创建桌面快捷方式: $R1"
    
37.         Goto done  ; 只创建一个快捷方式
    
38. 
    
39.         skip:
    
40.         FindNext $1 $2
    
41.         Goto loop
    
42. 
    
43.     done:
    
44.         FindClose $1
    
45. SectionEnd

复制代码

yyz2191958

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

助人为乐

smile_z

感谢分享

不点

以上方法貌似要用到（微软之外的）外部软件。

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

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

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

燕飞龙

感谢分享

j2rong

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

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

cls822001

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

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

luntaner

学习了    之前都是手动创建的

j2rong

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

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

cls822001

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

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

倒垃圾的歌者

两种方法

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

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

复制代码

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

1. 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文件快捷方式）

1. 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文件快捷方式）

1. 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（创建文件夹快捷方式）

1. 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"
   
2. 
   
3. echo 当前用户桌面的路径为%My-Desktop%
   
4. 
   
5. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%My-Desktop%\快捷方式名字.lnk""):b.TargetPath=""文件夹路径"":b.WorkingDirectory=""文件夹路径"":b.Save:close")

复制代码

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

1. 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"
   
2. 
   
3. echo 当前用户桌面的路径为%My-Desktop%
   
4. 
   
5. 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（创建文件夹快捷方式）

1. 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"
   
2. 
   
3. echo 当前用户桌面的路径为%My-Desktop%
   
4. 
   
5. powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%My-Desktop%\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径'; $s.WorkingDirectory = '%文件夹路径'; $s.Save()"

复制代码

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

1. 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"
   
2. 
   
3. echo 当前用户桌面的路径为%My-Desktop%
   
4. 
   
5. powershell -command "$ws = New-Object -ComObject WScript.Shell; $s = $ws.CreateShortcut('%My-Desktop%\快捷方式名字.lnk'); $s.TargetPath = '文件夹路径\XXX.exe'; $s.WorkingDirectory = '%文件夹路径'; $s.Save()"

复制代码

guong

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

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

谢谢分享！

PCHH

感谢分享

wwwlhp

多谢分享！！！