' get folders files don't trust file.exists
Dim l As List: l.initialize
l =File.ListFiles(XUI.DefaultFolder)
Log(XUI.DefaultFolder)
Log(l)
Log(l.IndexOf(DBName))
' if the file exitst open database
If l.IndexOf(DBName) > -1 Then
SQLite.Initialize(XUI.DefaultFolder, DBName, False)
Else
XUI.Msgbox2Async("Datenbank wurde nicht kopiert!", _
"Fehler: Start create","OK","","",Main.imgError)
End If