If FirstTime Then
If File.Exists(File.DirRootExternal & "/download","/database.db")=False Then
Msgbox("No file in downloads","Whoops")
Else
Msgbox("found one in downloads ","Yeah")
File.Copy(File.DirRootExternal & "/download", "database.db", File.DirInternal, "database.db")
End If
DBFileDir = File.DirInternal
End If