フォントが存在するかどうかを確認する方法

ここにVBのコードを貼って、C#の参照も同様で、Cディスクのフォントライブラリの中のフォントを読んで、フォントが存在するかどうかを判断して、存在しないで特殊な方法を使ってフォントに対してインストールを行います
これは一部のB/Sが構築したソフトウェアに対してまだ役に立つことができて、結局一部のソフトウェアが設定したフォントはシステムライブラリの中で存在しないで、不安であれば、各種の文字化けの情況が現れることができて、だから
そうする必要がある

Private Sub CheckPmingLiuFont() Implements IHealthCheck.CheckPmingLiuFont
        Try
            Dim lo_Fkey As RegistryKey = Registry.LocalMachine
            Dim lo_Rkey As RegistryKey = lo_Fkey.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts")
            Dim ls_FontName() As String = lo_Rkey.GetValueNames()
            Print("20. Check the PMingLiu font.")
            For Each c In ls_FontName
                Dim myvalue As String = lo_Rkey.GetValue(c).ToString
                If myvalue = "mingliu.ttc" Then
                    Print("PMingLiu is existing.")
                    Exit Sub
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub