中国DOS联盟

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