Func DelFolder()
	Local $aComputerOwner, $sFileDate, $hSearch, $sFileName = ""
	While True
		For $i = 0 To UBound($aUsersTarget) - 1
			$aComputerOwner = _AD_GetObjectsInOU("OU=computers," & $sSiteOU & ",OU=company,DC=AD,DC=company,DC=ORG", "(&(objectclass=computer)(managedby=" & $aUsersTarget[$i][0] & "))", Default, "cn")
			If $aComputerOwner <> 0 Then
				$hSearch = FileFindFirstFile($aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $aUsersTarget[$i][4] & "\" & "*.")
				If $hSearch <> -1 Then
					Do
						$sFileName = FileFindNextFile($hSearch)
						If UBound(_ArrayFindAll($aComputerOwner, $sFileName)) = 0 Then
							If StringInStr($sFileName, StringUpper(StringRight($sSiteOU, 2) & StringMid($sSiteOU, StringInStr($sSiteOU, ",") - 2, 2) & "LT")) <> 0 Or StringInStr($sFileName, StringUpper(StringRight($sSiteOU, 2) & StringMid($sSiteOU, StringInStr($sSiteOU, ",") - 2, 2) & "DT")) <> 0 Then
								$sFileDate = _ConvertTimeFormat(FileGetTime($aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $aUsersTarget[$i][4] & "\" & $sFileName, 0, 1))
								If _DateDiff('M', $sFileDate, _NowCalc()) > $sIntVal Then
									If $aUsersTarget[$i][4] = "" Then ;   HomePath                        Username
										_FileWriteLog($hFile, $aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $sFileName & @CRLF)
										If $bDebugMode Then
											ConsoleWrite($aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $sFileName & ' ' & _DateDiff('M', $sFileDate, _NowCalc()) & ' ' & $sIntVal & ' ' & $aUsersTarget[$i][4] & @CRLF)
										EndIf
									Else ;   HomePath                        Username                    BackupFolder
										_FileWriteLog($hFile, $aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $aUsersTarget[$i][4] & "\" & $sFileName & @CRLF)
										If $bDebugMode Then
											ConsoleWrite($aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $sFileName & ' ' & _DateDiff('M', $sFileDate, _NowCalc()) & ' ' & $sIntVal & ' ' & $aUsersTarget[$i][4] & @CRLF)
										EndIf
									EndIf
								EndIf
							EndIf
						EndIf
					Until FileFindNextFile($hSearch) = @error
				Else
					_FileWriteLog($hFile, "Error: No files/directories matched for " & $aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $aUsersTarget[$i][4] & "\" & "*." & @CRLF)
					If $bDebugMode Then
						ConsoleWrite("Error: No files/directories matched for " & $aUsersTarget[$i][2] & "\" & $aUsersTarget[$i][3] & "\" & $aUsersTarget[$i][4] & "\" & "*." & @CRLF)
					EndIf
				EndIf
				; Close the search handle.
				FileClose($hSearch)
			EndIf
		Next
	WEnd
EndFunc   ;==>DelFolder