bat批量以当前文件的名字前几位新建文件夹然后把文件一 一对应复制进去

@echo off

setlocal enabledelayedexpansion

set num=4

for /f "delims=" %%a in ('dir /a-d /b *.*') do (

    if not "%%~nxa"=="%~nx0" (

        set tmp=%%~na

        set tmp=!tmp:~0,%num%!

        if not exist "!tmp!\" (

            md "!tmp!\"

            move "%%~a" "!tmp!\"

        ) else (

        move "%%~a" "!tmp!\"

        )

    )

)

echo end...

pause

复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件夹放一起运行@echo off

rem 将名称中开头前几位字符相同的文件夹移动到对应的文件夹里

set #=Any question&set @=WX/&set $=Q&set/az=0x53b7e0b4

title %#% +%@%%$%%$% %z%

cd /d "%~dp0"

set n=8

for /f "delims=" %%a in ('dir /ad/b') do (

    set "name=%%~nxa"

    setlocal enabledelayedexpansion

    if "!name:~%n%!" neq "" (

        if not exist "!name:~,%n%!\" md "!name:~,%n%!\"

        echo"!name!" --^> "!name:~,%n%!\"

        move "!name!" "!name:~,%n%!\!name!"

    )

    endlocal

)

echo%#% +%@%%$%%$% %z%

pause

---