@echo off
if "%~1"=="" (
   setlocal enabledelayedexpansion
   for /f "tokens=2 delims==" %%a in ('%~s0 h^|sort') do (
      set /a n=n%%6+1
      if !n! equ 1 set /a m+=1&set "m2=00!m!"
      if not exist "第!m2:~-3!部分\" md "第!m2:~-3!部分
      move "%%a" "第!m2:~-3!部分
    )
    pause&exit
)
for %%i in (*) do (
   if not "%~nx0"=="%%~nxi" (
      set "var=000000000000000000000000000000%%i=%%i"
      setlocal enabledelayedexpansion
      (echo !var:~-30!)
      endlocal
))
goto :EOF
复制代码