Del \\server\adlogs\log_dc1\$file

 $filen='log_dc1'
 $filename1 = DIR("\\server\adlogs\"+$filen)
 WHILE $filename1 <> "" AND @error = 0
    $file = "\\server\adlogs\log_dc1\"+$filen ;comparing the date (if file is 3 days older than todays date, get rid of it)
    IF DateCalc(@date,left(getfiletime($file),10)) > 3
       ? $file "will be deleted"
       DEL $file
    ENDIF
    DIR() ;retrieve next file
 LOOP
 RETURN

 CLS
 BREAK ON
 $log=@scriptdir+'\Profileremove.csv'
 IF EXIST($log) DEL $log ENDIF
 $date=split(@date,'/')[1]+'/'+split(@date,'/')[2]+'/'+split(@date,'/')[0]
 $logdata='Run date/time:'+$date+' '+@time+@crlf
 $logdata=$logdata+'Days ago,Location,Error Code'+@crlf+'-------------------'
 LOGGER($log,$logdata+@crlf)

 FOR EACH $i IN Split('01 02 03')
    $loc='\\CITRIX'+$i+'\admin$$\profiles\'
    $rc=WshPipe('%comspec% /c dir '+$loc+'*.*',1)
    FOR EACH $line IN $rc
       IF NOT instr($line, 'File Not Found')
          ;?$line
          ; -- Convert American Dates to European format
          ;?$dtchk
          $name=split($line)[17]
          $dtchk=split(split($line)[0],'/')[2]+'/'+split(split($line)[0],'/')[0]+'/'+split(split($line)[0],'/')[1]
          $dt=DATECALC($dtchk,@date)
          IF val($dt)>2 AND len($name)>3 AND $name<>'All Users' AND $name<>'DEFAULT'
             ;?
             SHELL '%COMSPEC% /C RD /S /Q '+chr(34)+$loc+'\'+$name+chr(34)
             If @error<>$err=1 ELSE $err=0 ENDIF
             $logdata=''+$dt+','+$loc+$name+','+$err
             LOGGER($log,$logdata+@crlf)
          ENDIF
       ENDIF
    NEXT
 NEXT
 MAILER('user@@company.com',,,$log)

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','/a-d')
$3days = 259200

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])
	
	If flipctime(@DATE,@TIME) - flipctime($ts[0],$ts[1]) >= $3days
		? "Delete!	" $file.name "	" $ts[0] 

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

	EndIf
Next

 # Day = Number of days from todays date that files should be kept. Day = 0 means that all file will be removed.
# Path = The path where the script should look in.
[Parameter]
Day=3
Path=C:\SomePath 

$IniFile = ".\DelFile.ini"  
$LogFile = ".\DelFile.log"

$rc = RedirectOutput( "$LogFile" ,1 )
? "Start " + @Date + " " + @Time

$OneDaySec = 86400
$TodayVal  = FlipcTime(@DATE,"00:00")

If Exist( $IniFile )
 $Day  = ReadProfileString("$IniFile","Parameter","Day")
 $Path = Trim( ReadProfileString("$IniFile","Parameter","Path") )
Else
 ? "Cant find $IniFile"
 Exit
EndIf

$DelValue = $TodayVal - $OneDaySec * $Day
$FileName = Dir( $Path )
While $FileName <> "" And @ERROR = 0
 $File = "$Path" + "\" + "$FileName"
 $FiAt = GetFileAttr( "$File" )
 If $FiAt = 1 Or $FiAt = 2 Or $FiAt = 3 Or $FiAt = 32 Or $FiAt = 33 Or $FiAt = 34 Or $FiAt = 35 Or $FiAt = 128 ; Fil och ej Dir
  $FileDate = SubStr( GetFileTime( "$File" ) ,1,10)
  $FileVal  = FlipcTime( $FileDate,"00:00" )
  If $FileVal <= $DelValue
   Del "$File" /f /h
	? "remove file $File " + " / $FileDate with errorcode @Error"
  EndIf
 EndIf
  $FileName = Dir() ; retrieve next file
Loop

Exit

Function FlipcTime($date,$time,optional $tz)
	Dim $y,$m,$d
	$date = Split($date,"/")
	If Ubound($date) <> 2 Exit(1) EndIf
	$y=Val($date[0]) $m=Val($date[1]) $d=Val($date[2])
	If $m<3
		$m=$m+12
		$y=$y-1
	EndIf
	$Date=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
	$time = Split($time,":")
	Select 
		Case Ubound($time)=1
			ReDim preserve $time[2]
			$time[2]=0
		Case Ubound($time)=2
		Case 1
			Exit(1)
	EndSelect
	$time = (Val($time[0])*3600)+(Val($time[1])*60)+Val($time[2])
	$flipctime = IIf($tz,(($date-719163)*86400 + $time)-($tz*3600),($date-719163)*86400 + $time)
EndFunction
  

$file=DIR("\\server\adlogs\logs_dc1\*.log")
WHILE $file <> "" and @error=0
 $c=$c+1
 ? $file
 if DateCalc(@date,left(getfiletime($file),10)) > 2 
  ? $file 
  del "\\monm607\adlogs\monm_dc1\$file"
  ? @serror
 endif 
 $file=DIR()
LOOP 

Del "$File" /f /h

Quote:

---

Del

Action: Deletes one or more files.

Syntax: DEL "file name" [/c] [/f] [/h] [/s]
/c Continue deleting files, even if error(s) occur.
/f Delete read-only files.
/h Deletes hidden and system files also.

/s Delete specified files from all subdirectories.

Remarks: DEL does not prompt the user to confirm the deletion.
Wildcards are supported.

---

Quote:

---

I have one small issue with the scheduling of it (runs if I run it real-time, but doesn't run if called in the scheduler

---

 C:\Kix\Kix32.exe C:\Kix\RemoveFile.kix 

Quote:

---

I have also done a general program with an ini file thats control this kind of function.
The ini file looks like this:
Code:

---

 # Day = Number of days from todays date that files should be kept. Day = 0 means that all file will be removed.
# Path = The path where the script should look in.
[Parameter]
Day=3
Path=C:\SomePath 

---

Here is the kix code, I use a function called FlipcTime() I found in someones kix library.
Code:

---

$IniFile = ".\DelFile.ini"  
$LogFile = ".\DelFile.log"

$rc = RedirectOutput( "$LogFile" ,1 )
? "Start " + @Date + " " + @Time

$OneDaySec = 86400
$TodayVal  = FlipcTime(@DATE,"00:00")

If Exist( $IniFile )
 $Day  = ReadProfileString("$IniFile","Parameter","Day")
 $Path = Trim( ReadProfileString("$IniFile","Parameter","Path") )
Else
 ? "Cant find $IniFile"
 Exit
EndIf

$DelValue = $TodayVal - $OneDaySec * $Day
$FileName = Dir( $Path )
While $FileName <> "" And @ERROR = 0
 $File = "$Path" + "\" + "$FileName"
 $FiAt = GetFileAttr( "$File" )
 If $FiAt = 1 Or $FiAt = 2 Or $FiAt = 3 Or $FiAt = 32 Or $FiAt = 33 Or $FiAt = 34 Or $FiAt = 35 Or $FiAt = 128 ; Fil och ej Dir
  $FileDate = SubStr( GetFileTime( "$File" ) ,1,10)
  $FileVal  = FlipcTime( $FileDate,"00:00" )
  If $FileVal <= $DelValue
   Del "$File" /f /h
	? "remove file $File " + " / $FileDate with errorcode @Error"
  EndIf
 EndIf
  $FileName = Dir() ; retrieve next file
Loop

Exit

Function FlipcTime($date,$time,optional $tz)
	Dim $y,$m,$d
	$date = Split($date,"/")
	If Ubound($date) <> 2 Exit(1) EndIf
	$y=Val($date[0]) $m=Val($date[1]) $d=Val($date[2])
	If $m<3
		$m=$m+12
		$y=$y-1
	EndIf
	$Date=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
	$time = Split($time,":")
	Select 
		Case Ubound($time)=1
			ReDim preserve $time[2]
			$time[2]=0
		Case Ubound($time)=2
		Case 1
			Exit(1)
	EndSelect
	$time = (Val($time[0])*3600)+(Val($time[1])*60)+Val($time[2])
	$flipctime = IIf($tz,(($date-719163)*86400 + $time)-($tz*3600),($date-719163)*86400 + $time)
EndFunction
  

---

I then schedule this and I have this running on several servers to remove logs from several programs.
Works perfect.

Mima

---