$finddir($mircdir,*,%i,1)

%i being the number of the dir (obviously), 1 being the depth.