[文件操作] [已解决]批处理怎样只取第一个字母作为文件夹？

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /s /a-d') do (
    if "%%a" neq "%~0" (
       set str=%%~na
       for %%i in ("%%a\..") do (
           if "%%~ni" neq "!str:~,1!" (
               md "%%~dpa!str:~,1!" 2>nul
               move "%%a" "%%~dpa!str:~,1!"
           )
       )
    )
)
pause
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /s /a-d') do (
    if "%%a" neq "%~0" (
       set str=%%~na
       for /f "tokens=1-2 delims=0123456789" %%i in ("!str:~,3!") do (
           set "str=%%i%%j"
       )
       for %%i in ("%%a\..") do (
           if "%%~ni" neq "!str!" (
               md "%%~dpa!str!" 2>nul
               move "%%a" "%%~dpa!str!"
           )
       )
    )
)
pause
复制代码