22/11/23 - Codigo de respaldo diario para el caso de que no se tenga acceso al almacenamiento externo

B4A/C_RespaldoDiario.bas

@@ -17,6 +17,7 @@ End Sub
 'You can add more parameters here.
 Public Sub Initialize As Object
 '	Log("**************************   " & safePath)
+	Dim rp As RuntimePermissions
 	Dim Dirp As String = File.DirRootExternal
 	Dim Dir As String
 '	Dim Dir2 As String
@@ -30,6 +31,8 @@ Public Sub Initialize As Object
 	End Try
 '	safePath = rp.GetSafeDirDefaultExternal("./")
 	safePath = Dirp & Dir
+	'Si no existe el directorio "kmts" en el raiz de la tarjeta de memoria, nos cambiamos al directorio seguro (sdcard/Android/data/kelloggs...)
+	If Not(File.IsDirectory(Dirp, Dir)) Then safePath = rp.GetSafeDirDefaultExternal("kmts")
 	Private name() As String = Regex.split(" ", Application.LabelName)
 	rkmt.Initialize(safePath,$"${name(0)}.rkmt.km"$, True)
 	skmt.Initialize(File.DirInternal,"kmt.db", False)