FileSystem.FileCopy <source path>, <destination path>

'Create New Database
Dim CreateDatabase(strDataName As String)
Dim dbNew As DAO.Database
If Dir(strDataName)<>"" then
MsgBox "Database Exist"
Else
Set dbNew = DAO.CreateDatabase(strDataName, dbLangGeneral, dbVersion30)
dbNew.Close
Set dbNew = Nothing
End If
End Sub
'Use the CreateNew Sub Routine from my first reply to add to the newly created Database such as
Private Sub CreateNew(sDataNamePath As String, strTableName As String) 
'sDataNamePath is U'r new Database Name Full Path
    Dim dbNew As DAO.Database
    Dim tblNew As DAO.TableDef
    Dim tblCheck As DAO.TableDef
    Dim strTbName As String
    On Error Goto Create_Err
    Set dbNew = DAO.CreateDatabase(strDataNamePath, dbLangGeneral, dbVersion30)
    For Each tblCheck in dbNew.TableDefs 'check if tablename exist
    If tblCheck.Name = strTableName Then
    MsgBox "Table Exist"
    dbNew.Close
    Set dbNew =Nothing
    Exit Sub
    Else
    Set tblNew = dbNew.CreateTableDef(strTableName) ' create new table
    End If

    tblNew.Fields.Append tblNew.CreateField("FieldID", dbLong, 4)
    tblNew.Fields.Append tblNew.CreateField("Field1", dbText, 50)
    tblNew.Fields.Append tblNew.CreateField("Field2", dbText, 50)
    tblNew.Fields.Append tblNew.CreateField("Field3", dbText, 50)
    tblNew.Fields.Append tblNew.CreateField("Field4", dbDate, 8)
    
    tblNew.Fields(0).AllowZeroLength = False
    tblNew.Fields(1).AllowZeroLength = True
    tblNew.Fields(2).AllowZeroLength = True
    tblNew.Fields(3).AllowZeroLength = True
    tblNew.Fields(4).AllowZeroLength = True
    
    dbDay.TableDefs.Append tblNew

    dbNew.Close
    Set dbNew = Nothing
    Exit Sub
Create_Err:
    MsgBox "Error Has Occured" & vbcr & _
    Err.Number & vbcr & Err.Description, vbExclamation + vbOkonly,"Error"
    Exit Sub
End Sub

'make table query to add archived table into database
sqlStr = "SELECT * INTO <new tableName> IN '<path to new database>' FROM <Table with Data>"

docmd.setwarnings(False)
docmd.runsql(sqlstr)
docmd.setwarnings(True)