执行前-----某目录\*\*\*\*\*.*  N多个
执行后-----某目录\完成\扩展名\关键字\*关键字*.*
执行后-----某目录\完成\扩展名\*.*(无关键字的）
执行后-----某目录\完成\其他\关键字\*关键字*.*
执行后-----某目录\完成\其他\*.*（无关键字的
复制代码

@echo off&color 0a&title %~n0【高级版】by： 批处理之家大神【apang】  ^|当前时间：%time:~0,5% 
::定义关键字和扩展名
echo+
echo+	 本程序由【批处理之家】大神【apang】制作。
echo+
set /p keyWord=<D:\备份\关键字.ini
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  bat) do set ".%%a=程序"
if /i "%a%"=="y" for %%a in (exe  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" (
		setlocal enabledelayedexpansion
        set "fPath=%%a"		
        set "fName=%%~na"			
		if defined %%~xa (			
			for %%b in ( %keyWord% ) do (
				if "!fName:%%~nb=!" NEQ "!fName!" (	
					md "%DstDir%\!%%~xa!\%%~nb\" 
					move "!fPath!" "%DstDir%\!%%~xa!\%%~nb\"			
					) )							
				md "%DstDir%\!%%~xa!\"		
				move "!fPath!" "%DstDir%\!%%~xa!\"	
			) else (
				md "%DstDir%\其他\"	
				move "!fPath!" "%DstDir%\其他\"		
			)  
		endlocal 
) 	) 2>nul	
::删除空目录
cls&echo+&echo+		分类完成，稍后自动退出
for /f "tokens=*" %%i in ('dir/s/b/ad^|sort /r') do rd "%%i" >nul 2>nul
ping -n 2 127.1 >nul
复制代码

@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
复制代码

set gjz=三国  水浒 西游 聊斋 ********更多
复制代码