中国DOS联盟

@echo off&setlocal enabledelayedexpansion
for /r "F:\中华上下五千年" %%a in (*.rmvb) do (
set/a a+=1,"b=a/5-^!(a%%5)+1"
md "G:\中华上下五千年\!b!" 2>nul
copy "%%a" "G:\中华上下五千年\!b!"
)

@echo off
setlocal ENABLEDELAYEDEXPANSION

set  max_size=5
set  folder_name=1
set  sour_path=F:\中华上下五千年\
set  dest_path=G:\中华上下五千年\

for /f "tokens=4 delims= " %%i in ('dir %sour_path%') do (
        set var=%%i
        set suf=!var:~-4!

        set  bcopy=0
        if '!suf!'=='rmvb' set /a bcopy=1

        if '!bcopy!'=='1' (
                set destfolder=%dest_path%!folder_name!
                if EXIST !destfolder! (
                        copy %sour_path%!var! !destfolder! >nul 2>nul
                ) else (
                        md !destfolder! >nul 2>nul
                        copy %sour_path%!var! !destfolder! >nul 2>nul
                )
               
                set /a max_size-=1
                if '!max_size!'=='0' (
                        set /a max_size=5
                        set /a folder_name+=1
                )
        )
)

echo finish.

:End
pause

for /f "tokens=4 delims= " %%i in ('dir %sour_path%')

for /f "tokens=4 delims= " %%i in ('DIR /ON %sour_path%')

@echo off&setlocal enabledelayedexpansion
for /r "F:\中华上下五千年" %%a in (*.rmvb) do (
        set a=%%~na
        if "!a:~0,1!"=="0" (
                if "!a:~1,1!"=="0" (set a=!a:~2,1!) else set a=!a:~1,2!
                ) else (
                set a=!a:~0,3!
                )
        set/a "b=a/5-^!(a%%5)+1"
        md "G:\中华上下五千年\!b!" 2>nul
        copy "%%a" "G:\中华上下五千年\!b!"
)