Quote:

Works well, But I need a script that will also check subdirectories as well.

Howerever, I only want it to delete the old files of a certain age, not the folders that contain the older files.

Any recommendations?



i think my example script that i posted in the above thread will do what you are after, with just a slight modification of adding a '/s' option to the DIRPlus UDF.

it uses the following UDF's

DirPlus, TimeConvert, and FlipCTime

Code:

Call 'g:\kix\udf\dirplus\dirplus.kix'
Call 'g:\kix\udf\TimeConvert\TimeConvert.kix'
Call 'g:\kix\udf\FlipcTime\flipcTime.kix'

$files = Dirplus('\\flag-fs01\sys\deltemp','/s /a-d')
$3days = 259200
$14days = 1209600

For Each $file In $files
	$ts = Split($file.DateLastModified)
	$ts[0] = Split($ts[0],"/")
	$ts[0] = $ts[0][2] + '/' +  $ts[0][0] + '/' + $ts[0][1]
	$ts[1] = timeconvert($ts[1]+" "+$ts[2])
	

	;check to see if the file is older than 14 days vs the current date and time.
	If flipctime(@DATE,@TIME) - flipctime($ts[0],$ts[1]) >= $14days
		? "Delete!	" $file.name "	" $ts[0] 

		; --this needs to be commented out-- 
		;$file.delete
	EndIf
Next


Bryce