CrLf

不含特殊文件名时（不能含有运算符或 !、=）可以这样：

@echo off&setlocal enabledelayedexpansion
for %%a in (*.*) do (
   set /a "\%%~na+=1"
)
for /f "delims=" %%a in ('set \^|findstr "=4"') do (
   set name=%%a
   md "!name:1~,-2!"
   move "!name:1~,-2!.*" "!name:1~,-2!\"
)
复制代码

CrLf

若要兼容性好一些，也可这样：

@echo off
for %%a in (*) do if %%~xa neq .$ (
   set "na=%%~na"
   set "fa=%%~fa"
   setlocal enabledelayedexpansion
   for %%b in ("!na!*") do (
      set /a n+=1
   )
   if !n!==4 (
       md "!na!"
       move "!na!.*" "!na!\"
       endlocal
   ) else (
       for %%b in ("!na!*") do (
           endlocal
           ren "%%b" "%%b.$"
       )
   )
)
ren * *.
复制代码