[文件操作] 【练习-048】按文件后缀名整理文件夹

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /s /b /a-d') do (
     set "str=%%~xa"&set "_!str:~1!=a"
     if not exist "%cd%\!str:~1!" md %cd%\!str:~1!
     if "%%a" neq "%~0" move /y "%%a" "%cd%\!str:~1!\"
)
for /f "delims=" %%a in ('dir /b /ad') do if not defined _%%a rd /s /q "%%a" 
del /q %0
复制代码

::有一个缺点，如果已经存在相应的扩展名为名的目录，会被清空
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /s /b /ad^|sort /r ^&echo .') do (
	for %%b in (%%a\*.*) do (
		set ext=%%~xb
		if defined ext (set ext=!ext:~1!) else (set ext=nosuffix)
		xcopy "%%b" !ext!\ /y
		
	)
	if "%%a" equ "." (del /q *.*) else (rd /q /s "%%a\")
)
复制代码

@echo off&setlocal enabledelayedexpansion
set bax=.nosuffix
for /f "delims=" %%a in ('dir /s /b /ad^|sort /r ^&echo .') do (
        for %%b in (%%a\*.*) do (
                set ext=%%~xb
                if defined ext (set ext=!ext:~1!) else (set ext=nosuffix)
                xcopy "%%b" !ext!\ /y
                if "!bax:%%~xb=!" equ "!bax!" (set bax=!bax!%%~xb)
                
        )
        if "!bax:.%%~na=!" equ "!bax!" (
                if "%%a" equ "." (del /q *.*) else (rd /q /s "%%a\")
        )

)
pause
复制代码

@echo off
set bax=.nosuffix
for /f "delims=" %%a in ('dir /s /b /ad^|sort /r ^&echo .') do (
 set dir=%%a
 setlocal enabledelayedexpansion
 for %%b in (!dir!\*.*) do (
  endlocal
  set fil=%%b
  set ext=%%~xb
  setlocal enabledelayedexpansion  
  if defined ext (set ext=!ext:~1!) else (set ext=nosuffix)
  xcopy "!fil!" !ext!\ /y 2>nul 1>nul
  if "!bax:%%~xb=!" equ "!bax!" (set bax=!bax!%%~xb)
  
 )
 if "!bax:.%%~na=!" equ "!bax!" (
  if "%%a" equ "." (del /q *.*) else (rd /q /s "!dir!\")
 )
 endlocal
 
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /r . %%i in (*.*) do (
set var=%%~xi
set var=!var:.=!
if not exist !var! md !var!
if "%%i" neq "%~0" move /y "%%i" "!var!\"
)
for /f "delims=" %%i in ('dir /ad /b /s^|sort /r') do rd "%%i\"2>nul
pause
复制代码