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 == (
::将文件移动到临时目录
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 == (
move %1 "!dp!\!date!"
shift /1
goto :MoveToTemp
)
exit /b
Last edited by sonicandy on 2007-10-4 at 11:25 AM ]