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='\\citrixserver'+$i+'\admin$$\profiles\'
    $rc=WshPipe('%comspec% /c dir '+$loc+'*.*',1)
    FOR EACH $line IN $rc
       IF NOT instr($line, 'File Not Found')
          ;?$line
          ; -- Convert to American Dates from 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'
          ;IF 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('user1@@company.com,user2@@company.com',,,$log)

$folder = "%temp%"
for each $file in dirplus($folder,"/a-d")

	$Filedate = split($file.datelastmodified)
	$filedate[1] = timeconvert($filedate[1]+" "+ $filedate[2])

	$filedate[0] = split($filedate[0],"/")

	$filedate = flipctime($filedate[0][2]+"/"+$filedate[0][0]+"/"+$filedate[0][1],$filedate[1])

	if $filedate <= flipctime(@date,@time) - 864000 ;the number of seconds for 10 days
		? "10+ days old " "	" $file.name "	" $file.datelastmodified
	endif
next

Break On

 

Go C:

cd "\temp"

 

$iLimit=10

$sResult=udfPipe('"'+%COMSPEC%+'" /C dir /a-d /o-d /b')

If @ERROR

	"Could not get files. Error is:" ?

	"["+@ERROR+"] "+@SERROR ?

	"Extended error: " ?

	$sResult[1] ?

Else

	For Each $sFile in Split($sResult[0],@CRLF)

		If $sFile

			If $iLimit

				"Will not delete file "+$sFile+@CRLF

				$iLimit=$iLimit-1

			Else

				"Will delete file "+$sFile+@CRLF

			EndIf

		EndIf

	Next

EndIf

 

; Execute a command and return output and error streams

; This code adapted from Chris S. WshPipe() http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=82578

Function udfPipe($sCommand)

	Dim $oExec

	Redim $udfPipe[2]



	$oExec = CreateObject("WScript.Shell").Exec($sCommand)

	If Not VarType($oExec)=9 $udfPipe[1]=@SERROR Exit @ERROR EndIf



	$udfPipe[0] = $oExec.StdOut.ReadAll

	$udfPipe[1] = $oExec.StdErr.ReadAll



	Exit $oExec.ExitCode 

EndFunction ;}}}

Quote:

---

If one file will be created each day then Cleandirectory with the optional parameter of deleting only files older than ten days would definitely fit the bill. It's all documented in the UDF header.

---

Go H:
CD "\egnadata\Backup\CIC"
 
$iLimit=10
$sResult=udfPipe('"'+%COMSPEC%+'" /C dir /a-d /o-d /b')
If @ERROR
	"Could not get files. Error is:" ?
	"["+@ERROR+"] "+@SERROR ?
	"Extended error: " ?
	$sResult[1] ?
Else
	For Each $sFile In Split($sResult[0],@CRLF)
		If $sFile
			If $iLimit
				"Will not delete file "+$sFile+@CRLF
				$iLimit=$iLimit-1
			Else
				"Will delete file "+$sFile+@CRLF
				Del $sFile
			EndIf
		EndIf
	Next
EndIf
 

Go H:
CD "\egnadata\Backup\Outlook"
 
$iLimit=10
$sResult=udfPipe('"'+%COMSPEC%+'" /C dir /a-d /o-d /b')
If @ERROR
	"Could not get files. Error is:" ?
	"["+@ERROR+"] "+@SERROR ?
	"Extended error: " ?
	$sResult[1] ?
Else
	For Each $sFile In Split($sResult[0],@CRLF)
		If $sFile
			If $iLimit
				"Will not delete file "+$sFile+@CRLF
				$iLimit=$iLimit-1
			Else
				"Will delete file "+$sFile+@CRLF
				Del $sFile
			EndIf
		EndIf
	Next
EndIf
 
; Execute a command and return output and error streams
; This code adapted from Chris S. WshPipe() http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=8257
Function udfPipe($sCommand)
	Dim $oExec
	ReDim $udfPipe[2]

	$oExec = CreateObject("WScript.Shell").Exec($sCommand)
	If NOT VarType($oExec)=9 $udfPipe[1]=@SERROR Exit @ERROR EndIf

	$udfPipe[0] = $oExec.StdOut.ReadAll
	$udfPipe[1] = $oExec.StdErr.ReadAll

	Exit $oExec.ExitCode 
EndFunction ;}}}

Break On
 
$sDirToPurge="H:\egnadata\Backup\CIC"
udfPurgeFiles($sDirToPurge,10)
If @ERROR " ERROR: Could not purge '"+$sDirToPurge+"'"+@CRLF+"REASON: " @ERROR " " @SERROR+@CRLF EndIf
 
$sDirToPurge="H:\egnadata\Backup\Outlook"
udfPurgeFiles($sDirToPurge,10)
If @ERROR " ERROR: Could not purge '"+$sDirToPurge+"'"+@CRLF+"REASON: " @ERROR " " @SERROR+@CRLF EndIf
 
Exit 0
 
Function udfPurgeFiles($sPath,$iLimit)
	Dim $sResult,$sFile
	Dim $sDirPath
 
	$sDirPath=$sPath
	If Not (16 & GetFileAttr($sDirPath))
		; Not a directory - maybe there is a search term?
		$sDirPath=Left($sDirPath,InStrRev($sDirPath,"\")-1)
	EndIf
	$sResult=udfPipe('"'+%COMSPEC%+'" /C dir /a-d /o-d /b '+$sPath)
	If @ERROR Exit @ERROR EndIf
	For Each $sFile in Split($sResult[0],@CRLF)
		If $sFile
			If $iLimit
				"Will not delete file "+$sDirPath+"\"+$sFile+@CRLF
				$iLimit=$iLimit-1
			Else
				"Will delete file "+$sDirPath+"\"+$sFile+@CRLF
				; *** Uncomment the next line to enable the delete payload ***
				; DEL $sDirPath+"\"+$sFile
			EndIf
		EndIf
	Next
	Exit 0
EndFunction
 
; Execute a command and return output and error streams
; This code adapted from Chris S. WshPipe() http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=8257
Function udfPipe($sCommand)
	Dim $oExec
	Redim $udfPipe[2]
 
	$oExec = CreateObject("WScript.Shell").Exec($sCommand)
	If Not VarType($oExec)=9 $udfPipe[1]=@SERROR Exit @ERROR EndIf
 
	$udfPipe[0] = $oExec.StdOut.ReadAll
	$udfPipe[1] = $oExec.StdErr.ReadAll
 
	Exit $oExec.ExitCode 
EndFunction ;}}}