Public Sub LoadList2() 'loading list of fonts in network folder Dim directory = "c:\Odds & Ends\FontSync\MasterFontList" Dim files() As System.IO.FileInfo Dim dirinfo As New System.IO.DirectoryInfo(Directory) files = dirinfo.GetFiles() For Each file In files ListBox2.Items.Add(file.Name) Next End Sub
Dim fontCol As New PrivateFontCollection() fontCol.AddFontFile("D:\Test Data\MyFont.otf") Console.WriteLine(fontCol.Families(0).Name)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)