Dim DBFileDir As String
DBFileDir = File.DirInternal
Dim backupdir As String
backupdir = Starter.shared
Dim DBFileName As String
DBFileName = "SWSU.db"
Dim DBFileBackup As String
DBFileBackup = "SWSUBACK.bak"
File.Copy(DBFileDir, DBFileName, backupdir, DBFileBackup)