I have developed a NeoBook Function ... called gkvGetFonts ... using the VBScript language supported in v5.6 of NeoBook ... that enables you to retrieve this list into a [variable] with just one command ...
Code: Select all
Call "gkvGetFonts" "TrueType" "[myFontList]"
You can download this Function and a demo pub from here http://www.scriptedlogic.com/neoFREE7.htm
Note that this facility may not work if your users are running older versions of Windows (e.g. Win 98 ) ... however, it has been confirmed to work on Windows 2000, XP and Vista.