Sub Activity_Create(FirstTime As Boolean)
'
Starter.SysDirApk = File.DirDefaultExternal
Log("Data Folder: " & Starter.SysDirApk)
'
If FirstTime = True Then
'
If File.Exists(Starter.SysDirApk,"database.db3") = False Then
File.Copy(File.DirAssets,"database.db3",Starter.SysDirApk,"database.db3")
Log("Copiando Base de datos a : " & Starter.SysDirApk)
End If
'
If Starter.DataBase.IsInitialized = False Then
If Rutinas.Open_DataBase(Starter.SysDirApk, "database.db3") = False Then
Log("No se pudo abrir la base de datos")
End If
End If
'
End If
End Sub