@echo off
rem 保存为ANSI格式
setlocal enableDelayedExpansion
set "Source_Dir=D:\源文件夹"
set "Target_Dir=D:\目标文件夹"
set /a Fn=-1
set /a Dst=100
for /f "usebackq delims=" %%a in (`dir "%Source_Dir%" /a-d /s /b`) do (
	set /a Fn+=1
	set /a Dname1=!Fn!%%Dst
	set /a Dname2=Dname1*Dst
	if !Dname1! EQU !Dname2! (
		set /a Dname2=Fn+Dst-1
		set Dname1=0000!Fn!
		set Dname1=!Dname1:~-4!
		set Dname2=0000!Dname2!
		set Dname2=!Dname2:~-4!
		set Dname=!Dname1!-!Dname2!
		echo;mkdir "%Target_Dir%!Dname!"
	)
	set Fname=0000!Fn!
	set Fname=!Fname:~-4!
	echo;move "%%~fa" "%Target_Dir%\!Dname!\!Fname!%%~xa"
)
endlocal
exit /b
复制代码

@echo off
setlocal enabledelayedexpansion
for /d %%i in (*) do (
    pushd "%%i"
    set /a m=0,n=0
    for /f "delims=" %%j in ('dir /b /a-d') do (
        set /a n+=1
        if !m! lss !n! (
            set /a m+=500
            set NewFolder=!n!-!m!
            md "!NewFolder!"
        )
        move "%%j" "!NewFolder!"
    )
    popd
)
pause
复制代码