dim db as SQL
If FirstTime = True Then
'Verifico se è presente una SD
If File.ExternalWritable = True Then
CartellaDB = File.DirDefaultExternal
Else
If File.Exists(File.DirInternal & "database/", ".") = False Then
File.MakeDir(File.DirInternal, "database")
End If
CartellaDB = File.DirInternal & "/database/"
End If
If File.Exists(CartellaDB, "db.sqlite") = False Then
File.Copy(File.DirAssets, "db.sqlite", CartellaDB, "db.sqlite")
End If
End If
db.Initialize(CartellaDB, "db.sqlite", False)