Public Sub CopyDBFromAssets (FileName As String) As String
LogColor("CopyFromDBAssets " & FileName, Colors.Blue)
Dim TargetDir As String = GetDBFolder
If File.Exists(TargetDir, FileName) = False Then
LogColor("CopyFromDBAssets " & FileName, Colors.Red)
File.Copy(File.DirAssets, FileName, TargetDir, FileName)
End If
Return TargetDir
End Sub