检查字体是否存在的方法

 Private Sub CheckPmingLiuFont() Implements IHealthCheck.CheckPmingLiuFont
        Try
            Dim Path As String = \"C:\\Windows\\Fonts\\mingliu.ttc\"
            Dim PFC As New PrivateFontCollection()
            If Path = \"C:\\Windows\\Fonts\\mingliu.ttc\" Then
                sbErrorLog.AppendLine()
            End If
        Catch ex As Exception
            sbErrorLog.AppendLine(\"Can\'t Find PMingLiu Font\")
        Finally
            Print(\"\")
        End Try
    End Sub