B4J Code Snippet File.Exists on DirAssets

The need arose within a library to know if there was a Font in the DirAssets.
I didn't know if the developer had uploaded the font to the App, but if he didn't, the library would crash.

How to do? This was the solution
Private Sub FontExist(FileName As String) As Boolean
    'If File.Exists(File.DirAssets, "ftypes") Then Return True
    Dim r As Reflector
    r.Target = Me
    r.Target = r.RunMethod("getClass")
    Dim In As InputStream = r.RunMethod2("getResourceAsStream", "/Files/" &  FileName, "java.lang.String")
    If In.IsInitialized = False Then Return False
    Return True
End Sub
Last edited: