[文件操作] [已解决]批处理如何分类文件？

@echo off
cd /d "某目录"
for %%a in (*.*) do (
   set "basename=%%~na"
   set "extensionname=%%~xa"
   setlocal enabledelayedexpansion
   for /l (1 1 9) do if !basename:~-1! geq 0 if !basename:~-1! leq 9 basename=!basename:~,-1!
   md "完成\!extensionname!\!basename!"
   move /y "!basename!*!extensionname!" "完成\!extensionname!\!basename!\"
   endlocal
)
复制代码

定义关键字 变量gjz
定义扩扎名类型
call :gl 文件夹名
exit
:gl
echo+【%1】整理中，请稍后...
for /r  %%i  in (%a%) do   (
        If Not "%%~nxi"=="%~nx0" ( 
        ::在这里加入搜索关键字的代码，符合就执行移动到        %b%\%1\关键字
        ::不符合关键字的 继续执行下面的代码
                md %b%\%1  >nul 2>nul
                move /y  "%%i" "%b%\%1"  >nul 2>nul
        )
)        
复制代码

@echo off
set "keyWord=济公传 xxx yyy"
set "DstDir=完成"
for %%a in (jpg bmp gif jpe png jpeg) do set ".%%a=图片"
for %%a in (txt doc dot docx pdf ppt pot pps) do set ".%%a=其他\文本"
for %%a in (wmv rmv rmvb rm mp4 mkv avi wm wmp) do set ".%%a=电影"
for %%a in (flv 3gp ram mov mpg mpeg swf) do set ".%%a=电影\手机格式"
set ".torrent=其他\种子"
for %%a in (rar zip 7z) do set ".%%a=程序\压缩包"
for %%a in (mp3 aac wav) do set ".%%a=音乐"
for %%a in (ini gl) do set ".%%a=配置"

set /p a=请选择是否整理可执行文件（整理请输入Y）：
if /i "%a%"=="Y" for %%a in (exe com bat) do set ".%%a=程序"

:Lp
if exist "%DstDir%\" (
        set /p DstDir=目标目录已存在，请重新指定:
        goto :Lp
)

for /f "delims=" %%a in ('dir /a-d /b /s') do (
        if /i "%%a" NEQ "%~f0" (
                if defined %%~xa (
                        set "fPath=%%a"
                        set "fName=%%~na"
                        setlocal enabledelayedexpansion
                        set "fd=%DstDir%\!%%~xa!"
                        for %%b in (%keyWord%) do (
                                if "!fName:%%b=!" NEQ "!fName!" set "fd=%DstDir%\!%%~xa!\%%b"
                        )
                        md "!fd!"
                        move "!fPath!" "!fd!\"
                        endlocal
                )
        )
) 2>nul

::删除空目录
for /f "tokens=*" %%i in ('dir/s/b/ad^|sort /r') do rd "%%i" >nul 2>nul
pause
复制代码