-------------------------------------------------
set theFolder to path to fonts folder from local domain
set theFonts to {}
tell application "Finder"
repeat with theFile in (get the files of the theFolder)
set end of theFonts to name of theFile
end repeat
end tell
theFonts
-------------------------------------------------
Generally I prefer NOT to do it this way, because the file-list isn't an object available to inspect in Script Debugger – and that can make debugging more difficult.
However – that won't stop me from using the form in something quick and dirty that I know will work.
The following method is much faster:
-------------------------------------------------
set theFolder to path to fonts folder from local domain
tell application "Finder"
set fontNameList to name of files of theFolder
end tell
fontNameList
-------------------------------------------------