@echo off
title 文件歸類整理器

:: 目的：
::
:: 　　對當前目錄下的不同文件進行歸類操作(不處理子目錄)
::
:: 2006-12-16 修改了一處錯誤

for /f "delims=" %%i in ('dir /a-d /b /oe') do (
set "nx_name=%%~nxi"
call :build_dir %%~xi
set file_type=%%~xi

)
goto :eof

rem ======= 按文件類型創建文件夾 =======
:build_dir
set types=%1
set types=%types:~1%

:: 判斷要處理的文件是不是批處理自身
if "%nx_name%"=="%~nx0" (set file_self=yes&set file_type=) else set file_self=

:: 判斷文件類型是否發生了變化
if "%file_type%"=="%1" (set same_type=yes) else set same_type=

if not defined file_self if not defined same_type md %types%文件 2>nul
if not defined file_self move /-y "%nx_name%" %types%文件
goto :eof