setlocal enabledelayedexpansion
::设置临时目录的位置(可自行修改)
:: set dp=!userprofile!\my documents\临时目录
set dp=d:\chdoc\临时目录
::清除空目录
for /d %%i in ("!dp!\*") do rd "%%i"
::创建新目录
md "!dp!\!date!"
::更新虚拟盘符
subst /d t:
subst t: "!dp!"
if not [%1]==[] (
        ::将文件移动到临时目录
        call :MoveToTemp %*
) else (
        ::打开临时目录
        start "" "t:\!date!"
)
:::::::::::::::::::::::::::::::::::::::::::::::
::移动旧目录
call :MoveOld
exit /b
::移动本月份以前的目录到"临时目录\~old"
:MoveOld
if not exist "!dp!\~old" md "!dp!\~old"
for /d %%i in ("!dp!\*") do (
        set dir=%%i
        if not "!dir:~-9,-7!"=="!date:~-9,-7!" (
                if /i not "!dir!" == "!dp!\~old" (
                        move "!dir!" "!dp!\~old"
                )
        )
)
exit /b
::将参数所指定的所有文件移动到临时目录
:MoveToTemp
if not [%1]==[] (
        move %1 "!dp!\!date!"
        shift /1
        goto :MoveToTemp
)
exit /b