[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 qazplm 于 2020-3-22 17:27 编辑
  1. @echo off
  2. rem 有问题,可加QQ956535081及时沟通
  3. set "exefile=C:\Program Files\WinRAR\WinRAR.exe"
  4. if not exist "%exefile%" (echo;"%exefile%" not found&goto end)
  5. for /f "delims=" %%a in ('dir /a-d/b/s *.rar ') do (
  6.     echo;"%%a"
  7.     "%exefile%" x -ibck -y "%%a" "%%~dpa#%%~na\"
  8.     if not exist "%%~dpa%%~na\" md "%%~dpa%%~na\"
  9.     for /f "delims=" %%b in ('dir /a-d/b/s "%%~dpa#%%~na\" 2^>nul') do (
  10.         call :loop "%%b" "%%~dpa%%~na\" "%%~na"
  11.     )
  12.     rd /s /q "%%~dpa#%%~na\"
  13. )
  14. :end
  15. cd /d "%~dp0"
  16. pause
  17. exit
  18. :loop
  19. set n=2
  20. set "newfile=%~2\%~3%~x1"
  21. :check
  22. if not exist "%newfile%" (goto break)
  23. set "newfile=%~2\%~3-%n%%~x1"
  24. set /a n+=1
  25. goto check
  26. :break
  27. move "%~1" "%newfile%"
  28. exit/b
复制代码
提供bat代写
QQ: 956535081

TOP

回复 5# liwan123

大家是冲着100来的,这样分开就不好,谁先解决给谁就行了,后者可以适当给点小费即可,付款扫我头像或加我Q
提供bat代写
QQ: 956535081

TOP

返回列表