Var
  tmpDate: TDateTime;
Const
  ctMaxFiles = 5;
  ctFolder2Check = 'C:\Test\In\';
  ctFileFilter = '*.*';
  ctIncludeSubFolders = True; // True or False
Begin
  psExitCode:= 0;
  // Count Files
  psVIA := psCountFiles(ctFolder2Check, ctFileFilter, ctIncludeSubFolders);
  // Check
  If psVIA > ctMaxFiles Then
  Begin
    tmpDate := psGetOldestFileDate(ctFolder2Check, ctFileFilter, ctIncludeSubFolders);
    psVSA := FormatDateTime('YYYYMMDD HHNNSS', tmpDate);
    psLogWrite(1, '', 'Max files reached in ' + ctFolder2Check);
    psLogWrite(1, '', 'Oldest filedate ' + psVSA);
    // Set ExitCode
    psExitCode := 1; // Continue and send Email as Destination
  End;
End.