Something like this, perhaps?
 
 
Names Default To Here( 1 );
 
// Given a path to a folder, returns a list of all folders therein (not recursive!)
dirList =
Function({path}, {Default Local},
  // Get all files and folders in the specified folder
  fid = Files In Directory( path);
  // Remove all the files, just leaving the folders
  for(f=NItems(fid), f>=1, f--, if(IsFile(path||"/"||fid[f]), RemoveFrom(fid, f)));
  fid;
);
 
// Try out the function
path = "$DESKTOP";
Print(dirList(path));