code:

---

	$keyarray=split("$labelkey","\")
	for $loop=0 to ubound($keyarray)
		$labelpath=$labelpath+$keyarray[$loop]+"\"
		if KEYEXIST("$labelpath")=0
			$=addkey("$labelpath")
			endif
		next

---