'LocalStrings ***************************************************************
Dim FileName As String = "strings.db"
Dim TargetDir As String = File.DirInternal
If File.Exists(TargetDir, FileName) = False Then
File.Copy(File.DirAssets, FileName, TargetDir, FileName)
Log("Copy File")
Else
If File.Size(File.DirAssets, FileName) = File.Size(File.DirInternal, FileName) Then
Log("Same File")
Else
File.Delete(TargetDir, FileName)
File.Copy(File.DirAssets, FileName, TargetDir, FileName)
Log("Copy File Again")
End If
End If