设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 求个批处理：将当前路径下的某个文件夹创建快捷方式，然 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12345下一页
返回列表 发新帖
查看: 29904|回复: 63

[文件操作] 求个批处理：将当前路径下的某个文件夹创建快捷方式，然后发送到指定路径？

[复制链接]
ednykissyou
发表于 2025-6-21 12:33:12 | 显示全部楼层 |阅读模式
比如当前路径下有三个文件夹：aa  bb cc
我现在想将aa bb这两个各自创建快捷方式aa.link  bb.link，然后将快捷方式发送到Scripts Panel路径下，如下：
C:\Program Files\Adobe\Adobe InDesign 2024\Scripts\Scripts Panel

不知如何创建快捷方式。还有Adobe InDesign 2024这个以后会是变的，可能是Adobe InDesign 2025

求指点，万分感谢
回复

举报

Batcher
发表于 2025-6-21 13:47:14 | 显示全部楼层
回复 1# ednykissyou


请在 C:\Program Files\Adobe 这个文件夹下截图看看有哪些子文件夹？

如果需要上传文件，请用使用网盘。如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html
回复

举报

wallat
发表于 2025-6-21 14:04:17 | 显示全部楼层
  1. @echo off
  2. setlocal enabledelayedexpansion

  4. :: 设置源文件夹名称
  5. set "source1=aa"
  6. set "source2=bb"

  8. :: 设置快捷方式名称
  9. set "shortcut_name1=aa.lnk"
  10. set "shortcut_name2=bb.lnk"

  12. :: 设置目标路径的固定部分
  13. set "path1=C:\Program Files\Adobe"
  14. set "path2=Scripts\Scripts Panel"

  16. :: 查找Adobe InDesign文件夹
  17. set "indesign_folder="
  18. for /d %%a in ("%path1%\Adobe InDesign*") do (
  19.     set "indesign_folder=%%a"
  20.     goto :found
  21. )

  23. :found
  24. if "%indesign_folder%"=="" (
  25.     echo 错误: 未找到文件夹!
  26.     goto :end
  27. )

  29. :: 组合完整目标路径
  30. set "target_path=%indesign_folder%\%path2%"

  32. :: 检查路径是否存在
  33. if not exist "%target_path%" (
  34.     echo 错误: 目标路径 "%target_path%" 不存在!
  35.     goto :end
  36. )

  38. :: 创建第一个快捷方式
  39. echo 创建快捷方式 "%shortcut_name1%" 指向 "%source1%"...
  40. powershell -Command "$WshShell = New-Object -ComObject WScript.Shell; $Shortcut = $WshShell.CreateShortcut('%shortcut_name1%'); $Shortcut.TargetPath = '%CD%\%source1%'; $Shortcut.Save()"

  42. :: 创建第二个快捷方式
  43. echo 创建快捷方式 "%shortcut_name2%" 指向 "%source2%"...
  44. powershell -Command "$WshShell = New-Object -ComObject WScript.Shell; $Shortcut = $WshShell.CreateShortcut('%shortcut_name2%'); $Shortcut.TargetPath = '%CD%\%source2%'; $Shortcut.Save()"

  46. :: 复制快捷方式到目标路径
  47. echo 复制快捷方式到 "%target_path%"...
  48. copy /Y "%shortcut_name1%" "%target_path%"
  49. copy /Y "%shortcut_name2%" "%target_path%"

  51. echo 操作完成，按任意键退出！

  53. :end
  54. endlocal

  56. :: 按任意键结束
  57. pause>nul   
复制代码
放在 aa  bb 目录下运行就行

来自doubao
回复

举报

ednykissyou
 楼主| 发表于 2025-6-21 14:12:48 | 显示全部楼层

非常感谢
但这不确定，这是我的电脑上的。因为要用到别人电脑上，别人可能还有其他的，但都是Adobe家族的。
Adobe Creative Cloud Experience
Acrobat DC
Adobe Photoshop 2024
Adobe Illustrator 2024
Adobe Premiere Pro 2024
Adobe After Effects 2024
Adobe Lightroom 2024
Adobe InDesign 2024
Adobe Audition 2024

及不同年份的，比如还有
Adobe Photoshop 2025
Adobe Photoshop 2020
Adobe Illustrator 2020
Adobe InDesign 2025
回复

举报

ednykissyou
 楼主| 发表于 2025-6-21 15:27:17 | 显示全部楼层
放在 aa  bb 目录下运行就行

来自doubao
wallat 发表于 2025-6-21 14:04 放在 aa  bb 目录下运行就行


成攻了，但有乱码及错误提示。能优化吗
非常感谢。
回复

举报

77七
发表于 2025-6-21 16:12:06 | 显示全部楼层
回复 5# ednykissyou


   批处理保存为ansi编码。
回复

举报

77七
发表于 2025-6-21 16:12:57 | 显示全部楼层
  1. @echo off
  2. rem 保存为ansi编码
  3. cd /d "%~dp0"
  4. set list="aa" "bb"
  5. for /f "delims=" %%i in ('dir /b /s /ad "C:\Program Files\Adobe\Scripts Panel*" ^|find /i "\Scripts\Scripts Panel"') do (
  6.         if /i "%%~nxi" equ "Scripts Panel" (
  7.                 for %%a in (%list%) do (
  8.                         rem "http://www.bathome.net/redirect.php?goto=findpost&ptid=11050&pid=70331"
  9.                         mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut("^
  10.                         "%%i\%%~nxa.lnk""):b.TargetPath=""%%~fa"":b.WorkingDirectory=""%%~dpa"":b.Save:close"^)
  11.                 )
  12.         )
  13. )
  14. pause
复制代码
回复

举报

ednykissyou
 楼主| 发表于 2025-6-21 17:53:21 | 显示全部楼层
77七 发表于 2025-6-21 16:12


感谢，你这个是不是路径没找对，好像没有创建成功
回复

举报

aloha20200628
发表于 2025-6-21 18:51:34 | 显示全部楼层
本帖最后由 aloha20200628 于 2025-6-21 20:09 编辑

回复 1# ednykissyou

关键是要匹配出 C:\Program Files\Adobe\ 目录下所有用 Scripts Panel 结尾的子目录名...

  2. @echo off &for %%d in (aa, bb) do if not exist ".\%%d" exit/b
  3. powershell "$ws=New-Object -ComObject WScript.Shell;('aa','bb')|%%{$sc=$ws.CreateShortcut($_+'.lnk');$sc.TargetPath='%CD%\'+$_;$sc.Save();}"
  4. for /f "delims=" %%d in ('dir /b/s/ad "C:\Program Files\Adobe\*Scripts Panel" ') do for %%F in (aa, bb) do copy /y "%%F.lnk" "%%d"
  5. pause&exit/b
复制代码
回复

举报

77七
发表于 2025-6-21 22:07:36 | 显示全部楼层
回复 8# ednykissyou


  右键管理员执行
回复

举报

wallat
发表于 2025-6-22 08:40:29 | 显示全部楼层
回复 5# ednykissyou


    另存bat文件时，编码格式选为ANSI
回复

举报

Batcher
发表于 2025-6-23 08:19:47 | 显示全部楼层
回复 4# ednykissyou


你的这个截图里面既有 Adobe InDesign 2024 也有 Adobe InDesign 2025
需要根据什么条件决定选哪个？
回复

举报

ednykissyou
 楼主| 发表于 2025-6-23 14:38:21 | 显示全部楼层
放在 aa  bb 目录下运行就行

来自doubao
wallat 发表于 2025-6-21 14:04

大神你好，能不能先删除C:\Program Files\Adobe\Adobe InDesign 2024\Scripts\Scripts Panel下的内容
最好提示一下：将删除Scripts Panel下所有内容

谢谢～
回复

举报

wallat
发表于 2025-6-24 13:19:51 | 显示全部楼层
C:\Program Files\Adobe目录下有多个Adobe InDesign文件夹时，目前只能操作识别到的第一个文件夹
  1. @echo off
  2. setlocal enabledelayedexpansion

  4. :: 设置源文件夹名称
  5. set "source1=aa"
  6. set "source2=bb"

  8. :: 设置快捷方式名称
  9. set "shortcut_name1=aa.lnk"
  10. set "shortcut_name2=bb.lnk"

  12. :: 设置目标路径的固定部分
  13. set "path1=C:\Program Files\Adobe"
  14. set "path2=Scripts\Scripts Panel"

  16. :: 查找Adobe InDesign文件夹
  17. set "indesign_folder="
  18. for /d %%a in ("%path1%\Adobe InDesign*") do (
  19.     set "indesign_folder=%%a"
  20.     goto :found
  21. )

  23. :found
  24. if "%indesign_folder%"=="" (
  25.     echo 错误: 未找到Adobe InDesign文件夹!
  26.     goto :end
  27. )

  29. :: 组合完整目标路径
  30. set "target_path=%indesign_folder%\%path2%"

  32. :: 检查路径是否存在
  33. if not exist "%target_path%" (
  34.     echo 错误: 目标路径 "%target_path%" 不存在!
  35.     goto :end
  36. )

  38. :: 删除目标路径下的所有文件和子文件夹
  39. echo 正在删除 "%target_path%" 下的所有文件和文件夹...
  40. rmdir /S /Q "%target_path%" 2>nul
  41. mkdir "%target_path%"

  43. :: 创建第一个快捷方式
  44. echo 创建快捷方式 "%shortcut_name1%" 指向 "%source1%"...
  45. powershell -Command "$WshShell = New-Object -ComObject WScript.Shell; $Shortcut = $WshShell.CreateShortcut('%shortcut_name1%'); $Shortcut.TargetPath = '%CD%\%source1%'; $Shortcut.Save()"

  47. :: 创建第二个快捷方式
  48. echo 创建快捷方式 "%shortcut_name2%" 指向 "%source2%"...
  49. powershell -Command "$WshShell = New-Object -ComObject WScript.Shell; $Shortcut = $WshShell.CreateShortcut('%shortcut_name2%'); $Shortcut.TargetPath = '%CD%\%source2%'; $Shortcut.Save()"

  51. :: 复制快捷方式到目标路径
  52. echo 复制快捷方式到 "%target_path%"...
  53. copy /Y "%shortcut_name1%" "%target_path%"
  54. copy /Y "%shortcut_name2%" "%target_path%"

  56. echo 操作完成，按任意键退出！

  58. :end
  59. endlocal

  61. :: 按任意键结束
  62. pause>nul
复制代码
回复 13# ednykissyou
回复

举报

ednykissyou
 楼主| 发表于 2025-7-6 01:17:02 | 显示全部楼层
回复 14# wallat

感谢大神。
我搜小软件，有这个功能的好像基本没有。
回复

举报

下一页 »
12345下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 23:48 , Processed in 0.021590 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表