Sub AddEarcon(Earcon As String, Dir As String, FileName As String)
Dim r As Reflector
r.Target = TTS
Log(r.RunMethod3("addEarcon", Earcon, "java.lang.String", File.Combine(Dir, FileName), _
"java.lang.String")) '0 for SUCCESS, -1 for ERROR
End Sub
It will not work with asset files (not sure about internal files).