CopyFileFromAssetToInternal(sDBName)
sDBRoot = GetTargetInternalDir
m_DB.Initialize(sDBRoot, sDBName)
Sub CopyFileFromAssetToInternal(aFileName As String) As Boolean
Dim TargetDir As String
TargetDir = GetTargetInternalDir
If File.Exists(TargetDir, aFileName) = False Then
File.Copy(File.DirAssets, aFileName, TargetDir, aFileName)
End If
End Sub
Sub GetTargetInternalDir() As String
Dim TargetDir As String
If File.ExternalWritable Then
TargetDir = File.DirDefaultExternal
Else
TargetDir = File.DirInternal
End If
Log("Storage Internal Dir: " & TargetDir)
Return TargetDir
End Sub