@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
for /d %%A in (*) do (
  set ctr=0
  set t=%%~A
  set "t=!t:，=,!"
  set "t=!t:、=,!"
  set "t=!t:-=,!"
  for %%B in (!t!) do (
    set /a ctr+=1
    call :getNewName "%%~B"
    if !ctr! equ 1 (
      set firstdir=%%~B
    ) else (
      2>nul md !newname!
      xcopy "%%A\*" !newname! /e
    )
  )
  if !ctr! gtr 1 (
    call :getNewName "!firstdir!"
    ren "%%A" "!newname!"
  )
)
endlocal
pause
exit /b
:getNewName oldname
set n=0
set newname="%~1"
:loop
if not exist %newname% (
  exit /b
)
set /a n+=1
set newname="%~1_%n%"
goto loop
exit /b
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /ad *,* *-* *、* *，*') do (
    set str=%%a
    for %%b in (， 、 -) do set str=!str:%%b= !
    for %%i in (!str!) do (
        if exist %%i (
            set /a _%%i+=1
            md "%%i(!_%%i!)"
            xcopy "%%a\*.*" "%%i(!_%%i!)\"
        ) else (
            md "%%i"
            xcopy "%%a\*.*" "%%i\"
        )
    )
    rd /s /q %%a
)
pause
复制代码