下面批处理代码的功能是：获取当前目录目录下所有的WORD文档的文件名称，同时根据此文件名称建立对应名称的文件夹，最后，把该DOC文档移动到该文件夹下。
比如，有一DOC名称是：MyWord.doc，那么，批处理就根据此名称，建立一文件夹，名称为MyWord，最后，将此MyWord.doc文档移动到该文件夹中。
:: 下面代码的功能是扫描并获取文档名称
@echo off & setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir /a:-d /b *.doc') do (
attrib -h "%%i"
set "fname=%%i"
call :test "!fname:~0,-4!"
)
echo All Done & pause &exit
:: 下面代码的功能是根据文档名称建立文件夹并移动文件到该文件夹中
:test
set "var=%~1"
for /l %%j in (0 1 100) do (
set "var_=!var:~%%j,1!"
if "!var_!"=="" md "!var!" & move "%~1.doc" "!var!" & goto :eof
if !var_! gtr Z goto :eof
)
goto :eof