[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
文件夹按照9-10行的格式添加
set "linkFolderName序号=路径"
  1. @echo off
  2. REM Admin
  3. %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
  4. REM search drivers
  5. set "drivers=C D E F G H I J K L M N O P Q R S T U V W X Y Z"
  6. REM exe foldername
  7. set "exeFolderName=TOOLS1112222"
  8. REM main foldername
  9. set "linkFolderName1=C:\Users\lenovo\Desktop\1"
  10. set "linkFolderName2=C:\Users\lenovo\Desktop\2"
  11. REM start
  12. for %%i in (%drivers%) do if exist "%%i:\" (
  13. set /p="check:%%i:\%exeFolderName%   "<nul
  14. if exist "%%i:\%exeFolderName%" (
  15. echo OK!
  16. set "folder=%%i:\%exeFolderName%"
  17. goto :done
  18. ) else echo not found!
  19. )
  20. echo -------------
  21. for %%i in (%drivers%) do (
  22. cd /d "%%i:\" 2>nul && (
  23. echo search %%i: please wait...
  24. for /r /d %%a in ("*") do (
  25. if "%%~na" equ "%exeFolderName%" (
  26. set "folder=%%~a"
  27. goto :done
  28. )
  29. )
  30. )
  31. )
  32. :done
  33. if "%folder%"=="" echo %exeFolderName% not found! & pause&exit
  34. echo -------------
  35. echo "folder=%folder%"
  36. echo -------------
  37. for /r "%folder%" %%i in ("*.exe") do (
  38. echo mklink: %%~i
  39. call set "exe=%%~i"
  40. for /f "tokens=2 delims==" %%a in ('set linkFolderName') do (
  41. call set "link=%%a\%exeFolderName%\%%exe:%folder%\=%%"
  42. call mkdir "%%link:%%~nxi=%%" >nul 2>nul
  43. call mklink "%%link:~0,-4%%" "%%~i" >nul
  44. )
  45. )
  46. pause&exit
复制代码

TOP

本帖最后由 大地 于 2020-4-23 11:14 编辑

回复 16# went

大神  :

  从搜索到的TOOLS1112222的文件夹的EXE发送快捷方式至 "桌面" 和 "所有程序" 后,我还想
  从TOOLS1112222这个总文件夹中 挑选 其中三个特定的文件的快捷方式到桌面上

  TOOLS1112222\分区工具\DG.exe
                         \截图工具\nap.exe
                               \其它\QQ.exe
                                 ................

该如何添加?

TOP

回复 16# went


  从搜索到的TOOLS1112222的文件夹的EXE发送快捷方式至 "桌面" 和 "所有程序" 后,我还想
  从TOOLS1112222这个总文件夹中 挑选 其中三个特定的文件的快捷方式到桌面上

  TOOLS1112222\分区工具\DG.exe
                         \截图工具\nap.exe
                               \其它\QQ.exe
                                 ................

该如何添加?

大神再帮我解决一下吧  再次感谢!!

TOP

回复 18# 大地
16楼代码
10行下面加上以下代码,这是特殊exe的相对路径,?分隔
  1. REM esp exe
  2. set "espExe=\分区工具\DG.exe?\截图工具\nap.exe?\其它\QQ.exe?\新建文件夹\handle64.exe?\新建文件夹\CPU-V.exe"
复制代码
39行下面加上以下代码
  1. call echo %espExe% | call findstr /i /C:"%%exe:%folder%\=%%" >nul 2>nul && (
  2. call echo add %userprofile%\desktop
  3. mklink "%userprofile%\desktop\%%~ni" "%%~i" >nul
  4. )
复制代码
ANSI保存

TOP

回复 19# went


老师  加入上面的两个代码 运行闪屏不反应,  没有加入上面两个代码时仍运行正常

TOP

回复 20# 大地


    ANSI编码

TOP

本帖最后由 大地 于 2020-4-25 18:57 编辑

回复 21# went



按ANSI保存不能运行无反应
按UTF-8保存,能运行,但显示在C盘根目录找不到,但实际在C盘根目录上有该文件夹
按BOM的UTF-8保存,运行一直滚动不停止
上述操作在完整版的WIN10中试也不行

TOP

本帖最后由 went 于 2020-4-26 09:48 编辑

ANSI保存,再不行我也没招了
  1. @echo off
  2. REM Admin
  3. %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
  4. REM search drivers
  5. set "drivers=C D E F G H I J K L M N O P Q R S T U V W X Y Z"
  6. REM exe foldername
  7. set "exeFolderName=TOOLS1112222"
  8. REM main foldername
  9. set "linkFolderName1=C:\Users\lenovo\Desktop\1"
  10. set "linkFolderName2=C:\Users\lenovo\Desktop\2"
  11. REM esp exe
  12. set "espExe=\分区工具\DG.exe?\截图工具\nap.exe?\其它\QQ.exe"
  13. REM start
  14. for %%i in (%drivers%) do if exist "%%i:\" (
  15. set /p="check:%%i:\%exeFolderName%   "<nul
  16. if exist "%%i:\%exeFolderName%" (
  17. echo OK!
  18. set "folder=%%i:\%exeFolderName%"
  19. goto :done
  20. ) else echo not found!
  21. )
  22. echo -------------
  23. for %%i in (%drivers%) do (
  24. cd /d "%%i:\" 2>nul && (
  25. echo search %%i: please wait...
  26. for /r /d %%a in ("*") do (
  27. if "%%~na" equ "%exeFolderName%" (
  28. set "folder=%%~a"
  29. goto :done
  30. )
  31. )
  32. )
  33. )
  34. :done
  35. if "%folder%"=="" echo %exeFolderName% not found! & pause&exit
  36. echo -------------
  37. echo "folder=%folder%"
  38. echo -------------
  39. for /r "%folder%" %%i in ("*.exe") do (
  40. echo mklink: %%~i
  41. call set "exe=%%~i"
  42. call echo %espExe% | call findstr /i /C:"%%exe:%folder%\=%%" >nul 2>nul && (
  43. call echo add %userprofile%\desktop
  44. mklink "%userprofile%\desktop\%%~ni" "%%~i" >nul
  45. )
  46. for /f "tokens=2 delims==" %%a in ('set linkFolderName') do (
  47. call set "link=%%a\%exeFolderName%\%%exe:%folder%\=%%"
  48. call mkdir "%%link:%%~nxi=%%" >nul 2>nul
  49. call mklink "%%link:~0,-4%%" "%%~i" >nul
  50. )
  51. )
  52. pause&exit
复制代码

TOP

回复 23# went

大师:
这个版本很好,很实用,很方便,就是能不能用Shortcut.exe替换mklink,一个是mklink版本,一个是shortcut版本,多一个版本,多一个选择。相互取长补短,适应不同的环境,不同的系统。

TOP

回复 24# 大地

这是第三方工具,具体没用过

TOP

返回列表