Código para respaldo diario.

B4A/C_RespaldoDiario.bas

@@ -0,0 +1,30 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.2
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Dim skmt, rkmt As SQL
+	Dim rp As RuntimePermissions
+	Dim safePath As String
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	Return Me
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	'load the layout to Root
+	safePath = rp.GetSafeDirDefaultExternal("./")
+	Log("**************************   " & safePath)
+	rkmt.Initialize(safePath,"rkmt.db", True)
+	skmt.Initialize(File.DirInternal,"kmt.db", false)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.