Android Question How to Copy Empty Database?

For Each f As String In File.ListFiles(File.DirInternal)
 Log(f)
Next

'delete old database before copying the default one:
For Each f As String In File.ListFiles(File.DirInternal)
 if f.StartsWith("db_name.db") Then File.Delete(File.DirInternal, f)
Next

    If ls_regstatus = "E" Then
                        Delete_db
                        list_files
                        Copy_StartupFiles
                        list_files
                        Close_Activity
                        StartActivity(login_choice)
                        ToastMessageShow("Your Database has been deleted. Contact HeadOffice / Admin",True)
     End If

 If ls_regstatus = "D" Then
                        
                        Dim rs As ResultSet = Main.gs_sql.ExecQuery("SELECT mobileregistrationpk,fullname,mobilenumber,password,regstatus,keyvalue,sendstatus,updateon FROM tablename")
                        Do While rs.NextRow
                            Dim ls_fullname As String = rs.GetString("fullname")
                            Dim ls_mobilenumber As String = rs.GetString("mobilenumber")
                            Dim ls_password As String = rs.GetString("password")
                            Dim ls_regstatus As String = rs.GetString("regstatus")
                            Dim ls_keyvalue As String = rs.GetString("keyvalue")
                            Dim ls_sendstatus As String = rs.GetString("sendstatus")
                            Dim ls_updateon As Int = rs.GetString("updateon")
                        Loop
                        rs.Close
                        
                        Delete_db
                        Copy_StartupFiles
                        
                        Dim co_mobile_registration As List
                        co_mobile_registration.Initialize
                        Dim lm_map As Map
                        lm_map.Initialize
                        lm_map.Put("mobileregistrationpk", ls_mobileregistrationpk)
                        lm_map.Put("fullname",ls_fullname)
                        lm_map.Put("mobilenumber", ls_mobilenumber )
                        lm_map.Put("password", ls_password)
                        lm_map.Put("regstatus", "D" )
                        lm_map.Put("keyvalue", ls_keyvalue )
                        lm_map.Put("sendstatus", ls_sendstatus )
                        lm_map.Put("updateon", ls_updateon)
    
                        co_mobile_registration.Add(lm_map)
    
                        DBUtils.InsertMaps(Main.gs_sql, "tablename", co_mobile_registration)

                        Close_Activity
                        StartActivity(login_choice)
                        ToastMessageShow("Your Login has been deleted. Contact HeadOffice / Admin",True)
                    End If

Sub Delete_db
    For Each f As String In File.ListFiles(File.DirInternal)
     If f.StartsWith(Main.gs_databasename) Then File.Delete(File.DirInternal, f)
    Next
End Sub

Sub Copy_StartupFiles
    File.Copy(File.DirAssets,Main.gs_databasename,File.DirInternal,Main.gs_databasename)
End Sub

Sub list_files
    For Each f As String In File.ListFiles(File.DirInternal)
     Log("List files : " & f)
    Next
End Sub