Android Question Failed to find configured root that contains

cDirShared = rp.GetSafeDirDefaultExternal("shared")

Message.Attachments.Add( CreateFileProviderUri(cDirShared,cFileZip) )

Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
   Dim FileProvider As JavaObject
   Dim context As JavaObject
   context.InitializeContext
   FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
   Dim f As JavaObject
   f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
   Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider",f))
End Sub