Batcher

回复 1# guliduo


请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

@echo off
REM 设置前缀字符串长度
set PreLen=9

cd /d "%~dp0"
setlocal enabledelayedexpansion
for %%a in (*) do (
    if /i "%%~xa" neq ".bat" (
        if not exist "%%~xa" (
            md "%%~xa"
        )
        move /y "%%a" "%%~xa\"
    )
)
for /f "delims=" %%i in ('dir /b /ad .*') do (
    echo 正在处理文件夹：%%i
    pushd "%%i"
    for /f "delims=" %%j in ('dir /b /a-d') do (
        set "FileName=%%j"
        set "FolderName=!FileName:~0,%PreLen%!"
        if not exist "!FolderName!" (
            md "!FolderName!"
        )
        move /y "%%j" "!FolderName!\"
    )
    popd
)
复制代码