With a minor modification the simple example that I gave you will do what I think you want, which is not to iterate a DIR() to three levels, but to get the directories at the third level:
Code:
Break ON
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
 
$=funRecurse("C:\",3)
 
Function funRecurse($sDir,$iLevel)
	Dim $sEntry
 
	$iLevel=$iLevel-1
	$sEntry=Dir($sDir)
	While Not @ERROR
		If NOT($sEntry="" OR $sEntry="." OR $sEntry="..")
			$sEntry=Join(Split($sDir+"\"+$sEntry,"\\"),"\")
			If (GetFileAttr($sEntry) & 16)
				If $iLevel
					funRecurse($sEntry,$iLevel)
				Else
					$sEntry+@CRLF
				EndIf
			EndIf
		EndIf
		$sEntry=Dir()
	Loop
EndFunction