DELOLD will delete files older than xx days, but it won't archive them and it won't search sub-directories.

I have written JSIOLD.BAT. The useage is:

JSIOLD "<Path>" \["<Archive Path>"\] \[Age\] \[/s\] where:

Parameter	D e s c r i p t i o n
"<Path>"	The directory you want to search.
"<Archive Path>"	The optional path to the archive.
Age	The number of days. If omitted, the default is 60 days.
/s	Optional sub-directory switch.

NOTE: This script is aware of leap years.

JSIOLD.BAT

@echo off 
setlocal
set /a agen=60
set subd=
set suby=
if not exist %1\*.* goto notx
if "%4"
"" goto p4n
if /i "%4"
"/s" goto p4s
goto syntax
:p4s
set suby=/s
set agea=%3
set /a agen=%agea%
if "%agea%"
"%agen%" goto p2y
goto syntax
:p4n
if "%3"
"" goto p2
if /i "%3"
"/s" goto p3s
set agea=%3
set /a agen=%agea%
if "%agea%"
"%agen%" goto p2y
:syntax
@echo Syntax error: JSIOLD "" \[""\] \[Age\] \[/s\]
:endc
endlocal
goto end 
:ape
@echo Path %1 equals Archive %2
goto syntax 
:nota
@echo Archive %2 not found.
goto syntax
:notx
@echo Directory %1 not found.
goto syntax
:p2
if "%2"
"" goto today
if /i "%2"
"/s" goto lists
set agea=%2
set /a agen=%agea%
if "%agea%"
"%agen%" goto today
:p2y
if not exist  %2\*.* goto nota
set subd=%2
if /i %1
%2 goto ape
goto today
:lists
set suby=/s
goto today
:p3s
set agea=%2
set /a agen=%agea%
if "%agea%"
"%agen%" goto today
if not exist  %2\*.* goto syntax
set suby=/s
set subd=%2
if /i %1
%2 goto ape
:today
for /f "tokens=1,2,3,4* delims=/ " %%i in ('date /t') do set TDDAY=%%i&set TDMM=##%%j&set TDDD=##%%k&set TDYY=%%l
set TDMM=%TDMM:##0=##%
set TDMM=%TDMM:##=%
set TDDD=%TDDD:##0=##%
set TDDD=%TDDD:##=%
set /a TDDD=%TDDD%
set /a TDMM=%TDMM%
set /a TDYY=%TDYY%
set /a TDDD=%TDDD% - %agen%
:aday
if %TDDD% GEQ 1 goto dir
set /a TDMM=%TDMM% -1
if %TDMM% GEQ 1 goto aday%TDMM%
set /a TDYY=%TDYY% - 1
set /a TDMM=%TDMM% + 12
goto aday%TDMM%
:aday1
set /a TDDD=%TDDD% + 31
goto aday
:aday2
set /a TDDD=%TDDD% + 28
set /a WKYY=%TDYY% / 4
set /a WKYY=%WKYY% * 4
If %WKYY% NEQ %TDYY% goto aday
set /a TDDD=%TDDD% + 1
goto aday
:aday3
set /a TDDD=%TDDD% + 31
goto aday
:aday4
set /a TDDD=%TDDD% + 30
goto aday
:aday5
set /a TDDD=%TDDD% + 31
goto aday 
:aday6 
set /a TDDD=%TDDD% + 30
goto aday 
:aday7 
set /a TDDD=%TDDD% + 31
goto aday 
:aday8 
set /a TDDD=%TDDD% + 31
goto aday 
:aday9 
set /a TDDD=%TDDD% + 30
goto aday 
:aday10 
set /a TDDD=%TDDD% + 31
goto aday 
:aday11 
set /a TDDD=%TDDD% + 30
goto aday 
:aday12 
set /a TDDD=%TDDD% + 31
goto aday 
:dir 
if %TDDD% GTR 9 goto dirdd 
set TDDD=0%TDDD%
goto dirm 
:dirdd 
set TDDD=%TDDD%
:dirm 
if %TDMM% GTR 9 goto dirmm 
set TDMM=0%TDMM%
goto diryy 
:dirmm 
set TDMM=%TDMM%
:diryy 
set TYMD=%TDYY%%TDMM%%TDDD%
echo %TYMD%
for /f  "Tokens=*" %%i in ('dir %1\*.* /B') do call :jsioldc %1\"%%i"
if "%suby%"
"" goto endc 
for /f "Tokens=*" %%i in ('dir %1\*.* /B /AD /S') do call :jsioldcd "%%i"
goto endc 
:jsioldcd 
for /f  "Tokens=*" %%z in ('dir %1\*.* /B') do call :jsioldc %1\"%%z"
goto end 
:jsioldc 
set /a cnt=0
for /f "Tokens=1-4* Delims=/ " %%a in ('dir %1 /N') do  call :jsioldd %1 %%a %%b %%c %%d %%e
goto end 
:jsioldd 
set /a cnt=%cnt% + 1
if not %cnt% EQU 4 goto end 
if "%6"
"" goto end 
set FMM=%2
set FDD=%3
set  FYY=%4
set FYMD=%FYY%%FMM%%FDD%
if %FYMD% GEQ %TYMD% goto end  
echo %FYMD% %1 %subd% DEL
if %subd%=="" goto jsiolddd 
copy %1 %subd%\*.*
:jsiolddd 
del /q /f %1
:end