i had to go stomp some fires....

but here...
Code:

$source = "v:\"

$folders = dirplus($source,"/ad /s3")
for each $f in $folders
	if ubound(split(split($f.path,$source)[1],'\')) = 2
		? $f.path
	endif
next