Howdy all,

There is all sorts of postings about listing screen/printer fonts installed on your computer using the:

For i = 0 To Printer.FontCount - 1
lvFontList.ListItems.Add(i + 1, , Printer.Fonts(i)) 'populates a listView box...
Next i

... type of syntax.

However, I want to get extended information such as Font Family, the actual font file name, Font Style and where the font lives on the system. Do I need to use an API function? Do I simply loop through the Windows/Font directory and grab file attributes from each file?

What would you do? I appreciate your help. I have come across CreateFont function and EnumFontFamilies function, but I do not know how to use them, let alone use them to populate a list box.

Thanks.