Index: vhConsistency/Checks/Config/ConfigItems.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Config/ConfigItems.cls.xml	(revision 0)
+++ vhConsistency/Checks/Config/ConfigItems.cls.xml	(revision 3885)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.Config.ConfigItems">
+<Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Config.ConfigItems")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+
+<Parameter name="TeNegerenConfigItems">
+<Type>%String</Type>
+<Default>FreesH1File;FreesListSaveFolder;FreesSaveFolder;FreesSemaphoreFile;FreesUitvoerFolder</Default>
+</Parameter>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set ConfigService = ##class(TECH.Config.ConfigService).%New()	
+	Set ConfigItems = ConfigService.GeefConfigItems()	
+	Set ConfigItemIt = ##class(TECH.ListIterator).%New(ConfigItems.Lijst)
+	While (ConfigItemIt.HasNext())
+	{
+		Set ConfigItem = ConfigItemIt.Next()
+		If (..#TeNegerenConfigItems'[ConfigItem.Sleutel){
+			Set:'..ControleerConfigItem(ConfigItem) Status = $$$ERROR($$$GeneralError,""_ConfigItem.Sleutel_" heeft niet bestaande waardes.")
+		}
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ControleerConfigItem">
+<FormalSpec>ConfigItem:TECH.Config.dto.ConfigItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set WaardeIt = ##class(TECH.ListIterator).%New(ConfigItem.Waarden)
+	While WaardeIt.HasNext() 
+	{
+		Set Waarde = WaardeIt.Next().Waarde	
+		
+		If (Waarde[":\") || (Waarde["\\") {
+			If (Waarde["\") && (Waarde["::") Set Waarde = $Piece(Waarde,"\",0,$Length(Waarde,"\")-1)
+			If '(##class(TECH.File).DirectoryExists(Waarde) || (##class(TECH.File).Exists(Waarde)))
+			{
+				Set Status = $$$ERROR($$$GeneralError,"")
+				Do ..VoegMeldingToe("ConfigItem "_ConfigItem.Sleutel_" met waarde "_Waarde_" bestaat niet.")
+			}
+		}
+	}		
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>