Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a Design Master

Sub Create_DesignMaster(dbName As String, strPath As String)      Dim repDesignMaster As New JRO.Replica      Dim myFileSystemObject As Scripting.FileSystemObject      Dim strDb As String      Set myFileSystemObject = New FileSystemObject      strDb = strPath & "DM_" & dbName      If Not myFileSystemObject.FileExists(strDb) Then          myFileSystemObject.CopyFile strPath & dbName, strDb      Else          Debug.Print "The " & strDb & " database file already exists."          Exit Sub      End If      repDesignMaster.MakeReplicable strDb, True      Set repDesignMaster = Nothing      Set myFileSystemObject = Nothing  End Sub