You can just ignore anything in the array where column 5 <>'D', or try this:

SET DEFAULT TO 'c:\mypath'
=ADIR(laFolders,'','D')

>That will return everything including folders but I need 'only' folders.
>Thanks