批处理之家 - Powered by Discuz! Board

@Echo Off
:: User Variables
:: Set this to the number of folders you want to keep
Set _NumtoKeep=5
:: Set this to the folder that contains the folders to check and delete
Set _Path=D:\backup
If Exist "%temp%\tf}1{" Del "%temp%\tf}1{"
PushD %_Path%
Set _s=%_NumtoKeep%
If %_NumtoKeep%==1 set _s=single
Echo Please wait, searching for folders other than the %_s% most recent
For /F "tokens=* skip=%_NumtoKeep%" %%I In ('dir "%_Path%" /AD /B /O-D /TW') Do (
If Exist "%temp%\tf}1{" (
Echo %%I:%%~fI >>"%temp%\tf}1{"
) Else (
Echo.>"%temp%\tf}1{"
Echo Do you wish to delete the following folders?>>"%temp%\tf}1{"
Echo Date Name>>"%temp%\tf}1{"
Echo %%I:%%~fI >>"%temp%\tf}1{"
))
PopD
If Not Exist "%temp%\tf}1{" Echo No Folders Found to delete & Goto _Done
Type "%temp%\tf}1{" | More
Set _rdflag= /q
:_Prompt1
Goto _Removeold
Set _rdflag=
:_Removeold
For /F "tokens=1* skip=3 Delims=:" %%I In ('type "%temp%\tf}1{"') Do (
If "%_rdflag%"=="" (
Echo Deleting
) Else (
Echo "%%J"
rd /s /q %%J
))
:_Done
If Exist "%temp%\tf}1{" (
echo "%temp%\tf}1{"
)
::Deltree "%temp%\tf}1{"

复制代码

D:\backup>Echo on

D:\backup>Set _NumtoKeep=5

D:\backup>Set _Path="D:\backup"

D:\backup>If Exist "C:\Users\Wangh\AppData\Local\Temp\tf}1{" Del "C:\Users\Wangh
\AppData\Local\Temp\tf}1{"

D:\backup>PUSHD "D:\backup"

D:\backup>Set _s=5

D:\backup>If 5 == 1 set _s=single

D:\backup>Echo Please wait, searching for folders other than the 5 most recent
Please wait, searching for folders other than the 5 most recent

D:\backup>For /F "tokens=7 skip=5" %I In ('dir ""D:\backup"" /AD /B /O-D /TW') D
o (If Exist "C:\Users\Wangh\AppData\Local\Temp\tf}1{" (Echo %I:%~fI  1>>"C:\User
s\Wangh\AppData\Local\Temp\tf}1{" )  Else (
Echo  1>"C:\Users\Wangh\AppData\Local\Temp\tf}1{"
Echo Do you wish to delete the following folders?  1>>"C:\Users\Wangh\AppData\L
ocal\Temp\tf}1{"
Echo Date    Name  1>>"C:\Users\Wangh\AppData\Local\Temp\tf}1{"
Echo %I:%~fI  1>>"C:\Users\Wangh\AppData\Local\Temp\tf}1{"
) )

D:\backup>POPD

D:\backup>If Not Exist "C:\Users\Wangh\AppData\Local\Temp\tf}1{" Echo No Folders
Found to delete & Goto _Done
No Folders Found to delete

D:\backup>If Exist "C:\Users\Wangh\AppData\Local\Temp\tf}1{" (echo "C:\Users\Wan
gh\AppData\Local\Temp\tf}1{" )

D:\backup>pause
Press any key to continue . . .