$source = "v:\"

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