[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 flashercs 于 2022-5-16 16:13 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. for /d %%A in (*) do (
  5.   set ctr=0
  6.   set t=%%~A
  7.   set "t=!t:,=,!"
  8.   set "t=!t:、=,!"
  9.   set "t=!t:-=,!"
  10.   for %%B in (!t!) do (
  11.     set /a ctr+=1
  12.     call :getNewName "%%~B"
  13.     if !ctr! equ 1 (
  14.       set firstdir=%%~B
  15.     ) else (
  16.       2>nul md !newname!
  17.       xcopy "%%A\*" !newname! /e
  18.     )
  19.   )
  20.   if !ctr! gtr 1 (
  21.     call :getNewName "!firstdir!"
  22.     ren "%%A" "!newname!"
  23.   )
  24. )
  25. endlocal
  26. pause
  27. exit /b
  28. :getNewName oldname
  29. set n=0
  30. set newname="%~1"
  31. :loop
  32. if not exist %newname% (
  33.   exit /b
  34. )
  35. set /a n+=1
  36. set newname="%~1_%n%"
  37. goto loop
  38. exit /b
复制代码
1

评分人数

微信:flashercs
QQ:49908356

TOP

返回列表