$source = "c:\program files"

$folders = dirplus($source,"/ad /s2")
for each $f in $folders
	select
		case ubound(split(split($f.path,$source)[1],'\')) = 1
			 ? "level - 1	" + $f.path
		case ubound(split(split($f.path,$source)[1],'\')) = 2
			 ? "level - 2	" + $f.path
		case ubound(split(split($f.path,$source)[1],'\')) = 3
			 ? "level - 3	" + $f.path
	endselect
next