I just took Fuentez's code and wrapped it in a loop for the subdirectories.

code:

---

$root = "u:\"
$tempfile = "temp.dat"
shell "%comspec% /c dir $root /s/b > $tempfile"
$q = open(1,"$tempfile",2)
$file = readline(1)
do
	$monthover=0
	$date_old=getfiletime("$file")
	$year_old=VAL(substr($date_old,1,4))
	$month_old=VAL(substr($date_old,6,2))
	$day_old=VAL(substr($date_old,9,2))
	
	Select
		case (VAL(substr(@date,1,4))-$year_old)>0 AND ($month_old<12) $monthover=1 
			gosub decided 
		Case (VAL(substr(@date,1,4))-$year_old)>0 AND ($month_old=12) AND (@monthno>1) $monthover=1 
			gosub decided 
		case ((@monthno-$month_old)>1) $monthover=1 
			gosub decided 
		case ((@monthno-$month_old)=1) $monthover=1 
			gosub decided 
	endselect
	$file = readline(1)
While @error <> 0
$q = close(1) del $tempfile
EXIT
:decided
; "Commands to delete the file here"
return

---

Bryce