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

aloha20200628

回复 57# ednykissyou [/

为何一定要获取aa,bb这两个相对路径的全路径》
对批处理编程而言，给定相对路径名去求取其全路径的方法，或是从其根目录遍历，或是它本直属当前目录，前者不一定有唯一解，而后者可有唯一解，因此所谓的a,b两个相对目录名的全路径抓取就是靠批处理脚本与a,b同目录这个前提条件来保证的。之所以要取全路径只因快㨗方式要求定义全路径而不接受相对路径，即使给一个不真实的全路径都不行，否则创建的就是不可识别的快㨗方式。本帖转来绕去，其实就是两点，一是要开启管理员权限
以便复制快㨗方式到受保护目录，二是用相对路径名抓取全路径以
便创建快㨗方式，此二者也就是最后几版代码的解法支点。

ednykissyou

回复  ednykissyou


复制36楼代码的第25-32行，放在56楼代码 第9、10行之间
77七 发表于 2025-7-7 22:10

我想删除下边Script录目下的所有内容，并将Script设为只读，禁止再写入其他内容　（我现在手动删除Script下的内容，并将Script设为只读，但软件重启后，还是又
这里有一个问题。用户名olo也是不确定的，并不是在我的电脑上执行。
set "folder2=C:\Users\olo\AppData\Roaming\Adobe\InDesign\Version 19.0-J\zh_CN\Scripts\"

非常感谢。
我现在的完整代码是这样的：

1. @echo off & FLTMC>nul||(mshta vbscript:CreateObject^("Shell.Application"^).ShellExecute^("%~snx0"," %*","","runas",1^)^(window.close^)&&exit /b)
   
2. rem 保存为ansi编码
   
3. cd /d "%~dp0"
   
4. rem 需要的快捷方式路径
   
5. set list="C常用" "Tab"
   
6. set "folder=C:\Program Files\Adobe\Adobe InDesign 2024\Scripts\Scripts Panel"
   
7. 
   
8. for /f "delims=" %%i in ("%folder%.") do (
   
9.                                 echo 将删除 目录[%%i] 下所有文件（包括子目录）
   
10.                                 choice /m "确认请按 Y，否请按 N"
    
11.                                 if errorlevel 1 (
    
12.                                         if not errorlevel 2 (
    
13.                                                 rd /s /q "%%i"
    
14.                                                 md "%%i"
    
15.                                         )
    
16.                                 )
    
17. 
    
18.         for %%a in (%list%) do (
    
19.                 if exist "%%~a" (
    
20.                         echo 正在创建快捷方式 [%%~a]
    
21.                         mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut("^
    
22.                         "%%~fi\%%~nxa.lnk""):b.TargetPath=""%%~fa"":b.WorkingDirectory=""%%~dpa"":b.Save:close"^)
    
23.                         if exist "%%i\%%~nxa.lnk" (
    
24.                                 echo 操作成功
    
25.                         ) else (
    
26.                                 echo 操作失败
    
27.                         )
    
28.                 ) else (
    
29.                         echo 未找到 [%%~a] ，请检查路径
    
30.                 )
    
31.         )
    
32. )
    
33. pause

复制代码

77七

回复 62# ednykissyou


  

1. @echo off
   
2. set "folder2=C:\Users\%username%\AppData\Roaming\Adobe\InDesign\Version 19.0-J\zh_CN\Scripts"
   
3. for /f "delims=" %%i in ("%folder2%.") do (
   
4.         if exist "%%~fi" (
   
5.                 rd /s /q "%%~fi"
   
6.                 md "%%~fi"
   
7.                 icacls "%%~fi" /deny everyone:(OI^)(CI^)(WD,AD^)
   
8.         ) else (
   
9.                 echo 目录[%%~fi] 不存在
   
10.         )
    
11. )
    
12. pause

复制代码

ednykissyou

回复 63# 77七
非常感谢。

我干错了，放入了前段代码的倒数第一个括号前，把当前目录下所有东西，包括这个脚本本身都删了。
还好我备份，差点酿成悲剧。

论备份的重要性……再论没事别折腾电脑的重要性。