Quicken...

tell application "Finder"
  set myFolder to folder "blah:blah:blah:"
  set fileNames to name of every folder of myFolder
end tell

:slight_smile: