NewDBFolder = File.DirRootExternal & "/TestFolder/"
If File.Exists(NewDBFolder, "") = False Then
File.MakeDir(NewDBFolder, "")
End If
If File.Exists(NewDBFolder, "MyDatabase.db") = False Then
If File.Exists(File.DirAssets, "MyDatabase.db") Then
Wait For (File.CopyAsync(File.DirAssets, "MyDatabase.db", NewDBFolder, "MyDatabase.db")) Complete (Success As Boolean)
bStartCopy = True
Else if File.Exists(SourceFolder, "MyDatabase.db") Then
Wait For (File.CopyAsync(SourceFolder, "MyDatabase.db", NewDBFolder, "MyDatabase.db")) Complete (Success As Boolean)
bStartCopy = True
Else if File.Exists(File.DirInternal, "MyDatabase.db") Then
Wait For (File.CopyAsync(File.DirInternal, "MyDatabase.db", NewDBFolder, "MyDatabase.db")) Complete (Success As Boolean)
bStartCopy = True
Else
Msgbox2Async("Cannot find database", "Fehler - Folder error", "OK", "", "", info, False)
Wait For Msgbox_Result (iResult As Int)
If iResult = DialogResponse.POSITIVE Then
bStartCopy = False
End If
End If
End If