创建并维护以日期为名字的临时目录 - 中国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 == (
	::将文件移动到临时目录
	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 ]

第1楼　sonicandy	发表于 2007-09-12 20:35
中级用户　发帖 91　积分 273
[原创]创建并维护以日期为名字的临时目录 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* ]

第2楼　422904z	发表于 2007-09-13 20:54
初级用户　发帖 37　积分 74
！应为％吧

第3楼　sonicandy	发表于 2007-09-14 07:12
中级用户　发帖 91　积分 273
setlocal enabledelayedexpansion 因为这里启用了变量延迟,所以干脆把所有%都用!代替这样看起来整齐一些