AssociationMap[
Total@countLoc@Flatten@FileNames["*.m" | "*.wl",
AppExecute["Path", "BTools", "Packages", #],
10
] &,
FileBaseName /@ Select[DirectoryQ]@
FileNames["*", AppExecute["Path", "BTools", "Packages"]]
]
<|"Cruft" -> 0, "Developer" -> 5860, "Experimental" -> 0,
"External" -> 8635, "Formatting" -> 7753, "Frameworks" -> 1598,
"FrontEnd" -> 2214, "Paclets" -> 19562, "Utilities" -> 6259,
"Web" -> 10272|>