批處理 文件歸類整理器

@echo off
title 文件歸類整理器-test

::===================================================================================
:: 目的：
::
:: 對(duì)當(dāng)前目錄及其所有子目錄下的文件進(jìn)行歸類。
::
:: 整理結(jié)果：
::
:: 　　在當(dāng)前目錄及其子目錄下，以該文件夾里的文件類型名為文件夾名，在該文件
:: 所在目錄下建立形如 exe文件、rar文件 之類的文件夾，不同類型的文件移動(dòng)到
:: 對(duì)應(yīng)的文件夾下。
:: 　　如果以后增添了新文件，再次運(yùn)行本腳本時(shí)，若該位置已經(jīng)存在對(duì)應(yīng)的文件夾，
:: 將把新添的文件保存在該文件夾下；若不存在對(duì)應(yīng)的文件夾，將新建文件夾以保存
:: 該文件。
::
:: 下一版將要實(shí)現(xiàn)的功能：
::
:: 　?、?對(duì)以當(dāng)前目錄為起點(diǎn)，指定層深的子目錄進(jìn)行整理；
:: 　　② 整理指定類型以外的文件。
::
:: 更新歷史：
::
:: 2006-12-16
::
:: 　　增添了對(duì)已經(jīng)歸類的文件不再整理的功能，此為V1.1；
::
:: 2006-12-15
::
:: 　　在只能整理當(dāng)前目錄下不同類型文件的基礎(chǔ)上，寫出了能對(duì)當(dāng)前目錄及其所有子目錄下的
:: 不同類型文件進(jìn)行操作的代碼，此為V1.0；
::===================================================================================


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

rem ======= 按文件類型創(chuàng)建文件夾 =======
:build_dir
set types=%1
set route=%2
set types=%types:~1%
set "route=%route:~1,-1%"
set "cd_name=%route:~0,-1%"

rem ======= 獲取文件所在的目錄名 =======
:get_cd_name
set "cd_name_tmp=%cd_name:\=%"
set "cd_name=%cd_name:*\=%"
if not "%cd_name%"=="%cd_name_tmp%" goto get_cd_name

:: 通過(guò)對(duì)比文件類型名和目錄名來(lái)判斷哪些文件已經(jīng)整理過(guò)
if "%cd_name%"=="%types%文件" goto :eof

:: 判斷文件所在位置是否發(fā)生了變化
if %2=="%file_route%" (set chang_dir=) else set chang_dir=yesset file_type=

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

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

if not defined chang_dir (
if not defined file